


MINITEL, Apple // et Macintosh 


@ Téléchargement de fichiers via Minitel 


@ Le debugeing sous ProDOS 
@ ProDOS, fichiers et RAM 
@ Un système pico-Expert 
@ Codage de messages 

@ Scrollings en HGR 

& JustText à l'essai 

& Extasie à l’essai 










n 
.. 









8 - 45,00 F 


MZ#6- 23 - 
| NUMERO 28 :- PRIX 45 F 
| 
3 025005 00280 SSN : 0294-6068 
. 






































Les reliures Pom'’s 





A —— 


Pom'’s vous sert de référence, 
et à ce titre vous le consultez souvent. 


—— = — 





| Pour faciliter le rangement en 

| bibliothèque et la consultation, Pom’s 
Li Q Q 

vous propose des reliures toilées 

! réunissant 6 numéros, soit un an de 

| documentation. 

k 

} 

Il 

Û Une fois reliées, les revues forment un 
É livre agréable à utiliser, insensible à la 
ûl . . 

] manipulation. 

k 

À TOPIQUES PASCAL est un livre qui vous permet 

È d’acquérir la maîtrise complète de votre Apple en = | 

Û PASCAL. Ce livre présente: Ces reliures sont couleur Bordeaux, le 
ï | SEE logo Porn’s est frappé sur le dos et un 
j — le fonctionnement des périphériques et les 72 . 
techniques PASCAL pour les gérer efficacement aplat est réservé pour noter l'année. 
g (gestion directe du clavier, multifenêtage, gession La reliure se fait par brides 

& de plusieurs curseurs, inversion directe de l'écran, É 

M test de la disponibilité de l’imprimante, copie de la 

L page texte ou graphique, utilisation de i’Image 

M Writer, paramétrage de la carte Super série, 

il communications, redirection de l’écran vers la 

LE disquette, de l'imprimante vers l’écran) 

fi — les extensions UCSD pour gérer la mémoire 

k (tableaux dynamiques, tableaux creux, éditeur de 

[l texte, tableur, objet pointé de taille variable, 

M codeur LISP) ou les disquettes (fichier 


dynamique, fiche de taille variabie à accès direct) 
1! — les moyens pour réaliser de vastes programmes 


(morcellement du texte, segmentation du code, 
librairies, gestion des erreurs, générateur de 
programmes, générateurs de générateurs, traces, 
types abstraits, programmation orientée objet) 
— le fonctionnement système et les détails de 
= l'implémentation Apple (types, formats fichiers, 
ei plans mémoire, adresses du BiOS et de 
l'interprète, appels système). 








\ En tout 848 pages, 141 programmes, 247 figures, un 
index complet. 
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Le chemin des écoliers, &l est souvent le pas- 
sage par le Bureau. Pour changer d’application, il suffit 
aujourd’hui d’appeler l'accessoire “Raccourci”. Après avoir 
confirmé votre intention de quitter le programme en cours, 
une fenêtre de sélection apparaît et un simple double-clic 
vous fait passer de Basic à ScreenMaker, de MacPaint à 
Multiplan et, pourquoi pas, de MacFoith à MacPoker… 


Des avantages : 


Sur un 128 Ko, ne pas passer par le Finder c'est 
éviter des manipulations gourinandes en temps et 
en patience. 

Sur un 512 Ko, les applications disposent de toute la 
place mémoire. 

Sur un Mac Plus, ts changements sont quasi- 
instantanés et les 768 Ko de mémoire cache sont 
disponibles. 

Compatible avec Switcher : vous pourrez 
changer l’une ou l’autre des applications gérées par 
Switcher directement par cet accessoire. 

Compatible disques durs : même si votre dis- 
que dur est partagé via AppleTalk.… 

Disponible à tout moment, “Raccourci” est toujours 
utilisable car il ne nécessite pas une installation 
préalable des applications (sait-on toujours à 
l’avance quelles applications seront nécessaires à 
un travail donné ?). 


Avec Pom’s, travaillez drectement | 


Disquette “Raccourci” -200,00 F franco - Bon de commande page 74 -©Éditions MEV 
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Éditorial 


L’année 1987 sera celle du Mac ouvert ; il est en effet attendu depuis déjà longtemps. Sera-t-elle 
aussi celle de l’ Apple Ics ? Personne ne saurait aujourd’hui le dire, la richesse des possibilités de ce 
matériel et l’excellente compatibilité avec le reste de la gamme Apple // étant hélas compensées par 
un prix relativement élevé. Les transformations //e en Ics dont on parle aujourd’hui résoudront 
certainement ce handicap. 


RG 


Au niveau du logiciel Macintosh, signalons que -— depuis juin 86 — on nous promet Writer Plus pour 
la semaine prochaine... Tôt ou tard, cela devrait devenir vrai ! Autre retard : dBase Mac qui, une 
semaine avant sa sortie aux États-Unis, a brutalement été stoppé par Ashton-Tate. Un développeur 
avait en effet constaté que la gestion de la mémoire virtuelle ralentissait énormément le fonctionne- 
ment à partir d’une certaine taille de fichier. Retour donc au drawing-board, la sortie du produit 
étant repoussée au milieu de l’année, car il est actuellement reprogrammé en assembleur. 


Ceci dit, les produits nouveaux qui sortent actuellement dans les gammes Mac et Ucs sont 
nombreux, comme vous pourrez le voir dans la rubrique Micro-informations. 


Nous savions vous avoir proposé des programmes séduisants dans le numéro 27, mais, avouons-le, 
nous n’attendions pas un tel succès. Vos courriers et appels téléphoniques se feront certainement 
aussi nombreux et enthousiastes pour les programmes de transmission proposés dans ces pages. 
Notons que, comme fréquemment, Pom’s vous offre au prix du numéro des logiciels de haute 
qualité et de haute fiabilité dont la valeur dépasse le coût d’un abonnement revue plus disquette. 
Rappelons que les disquettes d’accompagnement (60,00 F pour Apple // et 80,00 F pour Macintosh) 
comportent les sources bien sûr mais également les programmes exécutables. 


Pour vous simplifier la communication, Pom’s fait dans le ‘hard’ : nous tenons à votre disposition 
des câbles de liaison Apple/Minitel. Peut-être serviront-ils pour de prochains programmes. 


Hervé Thiriez 


@nt collaboré à ce numéro Alexandre Avrane, Jean-Luc Bazanegue, François Dreyfuss, Jean-Michel Gourévitch, 
Roland Jost, Olivier Herz, Yves Martin, Gérard Michel, Christian Piard, Jacques Rey, 
Hervé Thiriez. 

Directeur de la publication, rédacteur en chef : Hervé Thiriez. 

Rédacteurs : Alexandre Avrane, Olivier Herz. 

Siège social : Éditions MEV - 12, rue d'Anjou - 78000 Versailles. Tél. : (1) 39.51.24.43. 

Publicité : Éditions MEV. 

Diffusion : N.M.P.P. 

Impression : Rosay - 47, avenue de Paris - 94300 Vincennes. Tél. : (1} 43.28.18.63. 


Pom's est une revue indépendante non rattachée à Apple Computer, Inc. ni à Apple Computer France S.A.RL. Apple, le logo 
Apple, Mac et le logo Macintosh sont des marques déposées d'Apple Computer, Inc. 
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SHOW, L C, 0: 
le debugsins sous ProDOS 


Alemndre Avrane 


Comme vous le savez tous, la 
recherche des erreurs d'un 
programme est une des activités 
principales de l'informatique. 
Tâche Ô combien exaltante, bien 
entendu... 


Malheureusement, il n'existe pas 
(encore) de méthodes infaillibles 
permettant de les éliminer dès la 
naissance, c'est-à-dire la 
conception d'un logiciel. En 
revanche, une panoplie d'outils 
destinés au debugging permet de 
les déceler plus rapidement. 
Examinons-les aujourd'hui, dans 
l'optique d'un programme écrit 
en assembleur ou en Applesoft, et 
dans un environnement ProDOS. 


Les méthodes 


Trois types d'approches sont 
souvent envisagées : 


+ D'abord, la méthode de la 
grande patience pas toujours 
récompensée : c'est l'analyse 
pas-à-pas des instructions 
exécutées ; le TRACE du Basic, 
ou un logiciel spécifique (tel que 
Bugbyter livré sur certaines 
disquettes ProDOS) pour les 
routines écrites en 6502. C'est 
long, fastidieux et éprouvant. 


- Cette première approche peut 
être complétée par des ordres 
d'arrêt afin que le programme 
rende la main et qu'il soit ainsi 
possible d'examiner la valeurs 
des variables Applesoft ou de 
certains octets de la mémoire. Il 
s'agit, respectivement, des 
instructions STOP et BRK. 


° Enfin, une mise au point 
affinée nécessite souvent une 
analyse détaillée des appels vers 
le système d'exploitation. Les 
commandes MON et NOMON du 
DOS 3.3 permettent ainsi 
d'obtenir des informations 
pertinentes en un minimum de 
temps. 


En complément, on peut trouver 
un certain nombre d'utilitaires 
afin d'accélérer le temps passé au 
debugging ::par exemple 
D-CODE (Beagle-Bros) et 
certaines routines proposées dans 
Beneath Apple DOS (et bien sûr 
dans Pom's). 


Remarquons que le FRACE de 
l'Applesoft n'était pas disponible 
sous DOS 3.3 ; en revanche, les 
instructions MON et NOMON 
sont ignorées sous ProDOS. 
Aujourd'hui, notre objectif sera 
donc d'en créer les équivalents 
grâce aux commandes SHOW et 
NOSHOW. 


MON & NOMON 


Pour rappel, ces deux 
instructions permettent d'afficher 
à volonté, sous DOS 3.3 
uniquement, l'ensemble des 
commandes passées par le 
programme Basic vers le système 
d'exploitation (CATALOG, 
READ, VERIFY, etc.) par 
l'exécution de lignes telle que : 


260 PRINT CHRS(4);"OPEN FI 
CHIER1,D2" 


Trois paramètres facultatifs 
définissent le type d'affichage : C 
pour n'afficher que les 
commandes, Î (input) pour les 
données lues par un READ, O 
(output) pour celles écrites par un 
WRITE. 

Deux points essentiels semblent 
dignes d'amélioration : 


+ D'abord, MON n'a d'effet que 
pour un programme écrit en 
Applesoft (ou en Integer Basic, 
pardons aux puristes). En 
particulier, une routine en 
assembleur qui appelle le File 
Manager ou RWTS ne peut être 
examinée. 


* Ensuite, l'affichage à l'écran 
brouille très rapidement celui-ci si 
il est utilisé à d'autres fms (gnlle 
de saisie par exemple), ce qui 
occasionne une gêne non 
négligeable. 


Les commandes offriront donc 
les particularités suivantes : 


Les commandes affichées sont 
celles qui appellent effectivement 
le noyau de ProDOS (MLI), et 
non pas la chaîne de caractères 
qui suit le PRINT CHR$(4) d'un 
programme Basic. Par ailleurs, 
l'interception de cette chaîne par 
le Basic.System n'est pas 
documentée par Apple ; il faudrait 
donc, pour la réaliser, modifier 
directement le Basic.System hors 
ses pages globales, avec tous les 
risques liés à une fâcheuse 
dépendance vis-à-vis des 
versions actuelles de ProDOS. 


Les anciens paramètres (C, I, O) 
sont conservés. De plus, le 
paramètre P permet d'envoyer les 
informations également sur une 
imprimante connectée en slot 1. Il 
sera alors possible d'exécuter un 
programme en obtenant une trace 
papier des actions effectuées. 


Enfin, nos nouvelles commandes 
ne peuvent malheureusement pas 
s'appeler MON et NOMON pour 
assurer une compatibilité totale 
avec les programmes écrits sous 
DOS 3.3 car, erreur de 
conception du Basic.System, les 
commandes de celui-ci (dont 
MON et NOMON qui sont 
reconnues mais ignorées) ne 
peuvent être redéfinies par une 
commande externe. Il aurait été 
préférable que le Basic.System 
s'intéresse à l'existence 
d'éventuelles commandes 
externes avant de s'occuper des 
siennes, et non l'inverse. 
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Exemple d'utilisation 


À titre d'illustration, le 
programme en Applesoft: 


100 D$ = CHRS(4) 

110 PRINT D$"SHOW, C,@, P" 

120 PRINT D$"OPEN FICHIERI" 
130 PRINT D$"WRITE FICHIERI" 
140 PRINT "ABCDEF”" 

150 PRINT "GHIJKL" 

160 PRINT D$"CLOSE FICHIERI" 
170 PRINT D$"NOSH@W,C,O,P" 


fournira, lors de sa première 

exécution, sur l'imprimante 

connectée : 

CS: Online S6,D1 

C4: Get_ file info 
/BISK]/FICHIERL (46) 

CO: Create /DISK1/FICHIERI 

C8: Open /DISKi/FICHIERL, #01 

CB: Write #01, L$000E 

ABCDEF 

GHIJKL 

CC: Close #01 


Chaque ligne affichée comprend 
(toutes les valeurs sont foumies 
en hexadécimal): 


+ le numérique d'appel à 
ProDOS, 
+ le libellé correspondant à cet 


appel, 
+ éventuellement, le ou les 
paramètres pertinents, 


- enfin, un éventuel code-retour 
entre parenthèses si une erreur 
s'est produite. 


Cette méthode de visualisation 
des informations peut donc aussi 
servir à mieux comprendre le 
fonctionnement du Basic.System, 
ou à développer son propre 
interpréteur en assembleur. On 
pourra d'ailleurs en profiter pour 
relever une certaine redondance 
du Basic.System qui a parfois 
tendance à demander des 
informations qu'il connait déjà. 


En reprenant les étapes de 
l'exemple précédent, on note 
successivement: 


+ Un appel Online afin de 
connaître le nom du préfixe 
courant. 

+ Un Get file info pour vérifier 
qu'il s'agit bien d'un fichier 
texte. À la première exécution, 
ce fichier n'existe pas et on 
obtient le code erreur 
correspondant. En règle 
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générale, d'ailleurs, il est 
chaudement recommandé de 
toujours faire précéder toute 
manipulation de fichier par un 
Get file info. 

+ Un Create, uniquement à la 
première exécution, pour créer 
le fichier avec ses attributs 
(type, date/heure, etc). 

+ Un Open où le programme 
indique le nom du fichier, et 
reçoit en retour un numéro de 
référence. 

+ Un Write, correspondant avec 
le numéro de référence 
précédent, sur une longueur 
de $000E octets (14 octets, 
c'est-à-dire 2 enregistrements 
de 6 caractères suivis d'un 
retour-chariot). 

+ L'affichage des données 
"ABCDEF" et “GHIJKL" car 
on l'avait demandé (opmon O) 

° Enfm, la fermeture du fichier. 


Bien entendu, on aurait obtenu le 
même résultat si le programme 
Basic ci-dessus avait été écrit en 
assembleur. 


Inforninations 
affichées 


Les paramètres affichés par la 
commande SHOW reprennent en 
partie l'ensemble des paramètres 
utilisés pour chaque appel à 
ProDOS. En particulier : 


- les noms de fichiers utilisés 
et/ou le préfixe ; 

- le numéro de référence fourni 
par ProDOS à l'ouvertue ; 

- la longueur demandée des 
lectures/écritures de données ; 

- la longueur effectivement 
obtenue si elle diffère de celle 
demandée ; 

- la position courante sur le 
fichier, en nombre d'octets 
depuis le début ; 

- les indications de slot/drive ; 

- le numéro de priorité pour les 
appels de gestion des 
interruptions ; 

- le numéro de bloc lu ou écrit ; 

- le caractère de fin de ligne suivi 
de son octet de masque. 


Afin d'alléger la densité de la 
présentation, seules les 


informations pertinentes pour 


l'appel en cours sont fournies. 


De plus, lorsque les paramètres I 
ou O sont actifs, les octets de 
données des fichiers texte lus ou 
écrits sont envoyés à l'affichage. 
Afin d'éviter les crises d'épilepsie 
des cartes d'interface, les 
caractères de contrôle 
éventuellement rencontrés sont 
ignOtés. 


Il n'est pas prévu de rappeler 
aujourd'hui le détail des types 
d'appel à ProDOS, qui peuvent 
être obtenus dans le Technical 
Reference Manual d'Apple ou de 
Beneath Apple ProDOS. (On 
pourra également consulter le 
numéro 20 de Pom’s). 


En revanche, les codes-erreur 
possibles sont : 


00 pas d'erreur 

01 fonction inconnue 

04 nombre de paramètres 
incorrect pour la fonction 

25 table d'interruption pleine 

27 i/o error 

28 pas d'unité dans ce 
slot/drive 

2B volume protégé contre 
l'écriture 

2E un volume, sur lequel se 
trouve des fichiers ouverts, 
a été enlevé 

40 syntaxe incorrecte du 
préfixe 

42 pas plus de 8 fichiers 
ouvert simultanément 

43 numéro de référence fourni 
non alioué à un fichier 
ouvert 

44 le chemin d'accés du préfixe 
n'a pu être trouvé 

45 volume actuellement non 
monté 

46 fichier inconnu 

47 impossikle de créer ou 
renommer vers un nom de 
fichier déjà existant 

48 plus de place sur le volume 

49 plus de place sur le 
directory du volume 

4A version de ProBOS trop 
ancienne pour lire ce 
fichier 

4B type de stockage du fichier 
inconnu 

4C lecture impossible après la 
fin du fichier 

4D impossible de se positionner 
après la fin du fichier 

4E erreur d'accès au fichier 
(fichier verouillé) 

50 impossible d'ouvrir, 
renommer ou détruire un 


fichier ouvert 

51 directory endommagé 

52 volume non formaté pour 
ProDCs 

53 valeur hors champs d'un 
paramètre d'appel 

55 pas plus de 8 volumes connus 
simultanément par ProD0OS 

56 adresse de buffer incorrect 

57 deux volumes montés ont le 
même nom 

58 carte du volume endommagée 


A l'exception du code-retour 00, 
qui indique un accomplissement 
correct, les codes erreurs sont 
affichés, à la suite des 
paramètres, entre parenthèses. 


Installation 


Les commandes SHOW et 
NOSHOVW sont gérées par une 
routine en assembleur qui utilise 
le modèle donné par les 
commandes TDUMP et INIT de 
Pom's 20. Le fichier source 
SHOW.CODES, assemblé par 
Big Mac, fournit l'objet 
SHOW.CODE. 


Ce dernier est ensuite chaîné avec 
la routine CMDLOAD par le 
programme CMDLINK pour 
fournir un fichier SHOW 
directement exécutable. 
(CMDLOAD et CMDLINK ont 
été explicités en détail dans le 
numéro 20 de Pom's). 


Pour initialiser les commandes 
SHOW et NOSHOW, il suffit de 
faire : 

-SHOW 
ou 

BRUN SHOW 


Il est également possible de 
charger les commandes par: 


BLOAD SHOW.CODE 
BRUN CMDLOAD 


Après chargement du 
programme, aucune différente 
n'est visible tant qu'une 
instruction telle que SHOW,C 
n'est pas exécutée. 


Le paramètre d'assemblage SLOT 
permet de spécifier le slot de 
l'imprimante si celle-ci n'est pas 
connectée en slot 1. Le 
programme fonctionne 


néanmoins parfaitement sur une 





configuration sans imprimante, 
pourvue que la commande 
SHOW,,P ne soit jamais exécutée. 


Enfin, notons que l'utilisation de 
ces deux nouvelles commandes 
est compatible avec celle des 
autres commandes utilisant le 
principe décrit par CMDLOAD. 
En particulier, la commande 
TDUMP de Pom's 20 (qui 
permet de vérifier entre autre le 
contenu des fichiers texte) peut 
être utilisée conjointement. 


De même, SHOW gère les 
tentatives d'interruption et peut 
donc co-exister sans problèmes 
avec des programmes qui les 
génèrent, comme DATHEUR de 
Pom's 24 qui utilise les 
interruptions de la carte souris. 


Utilisation hors Basic 


Il est possible d'obtenir, dans un 
environnement où l'interpréteur 
système n'est plus le 
Basic.System (par exemple le 
Filer, Convert, Exerciser, etc), 
les informations affichées à 
chaque appel du MLI. Dans ce 
cas, il faut modifier le source et : 


- fixer le paramètre BASIC à 0 
(il est normalement à 1) 

- fixer le paramètre ADRESSE 
à une adresse où la routine 
pourra se loger sans interférer 
avec l'interpréteur système 
actif (par exemple $8000 pour 
CONVERT) 

- fixer le paramètre OUT à Osi 
on désire une sortie 
uniquement sur écran, à 1 


pour une sortie 
supplémentaire sur 
imprimante 


- fixer le paramètre XSYSIO à 
1 pour n'afficher que les 
appels au MLI, à O pour 
obtenir en plus les données 
lues ou écrites vers tous les 
types de fichiers 

- assembler le source ainsi 
modifié 

- ne pas chaîner le module objet 
avec CMDLOAD mais 
l'exécuter directement (BRUN 
SHOW. CODE) 


Les informations de debugging 
seront alors toujours envoyées 


(impossible de moduler leur 
apparition). 


Ainsi utilisé, SHOW permet par 
exemple d'observer les 
algorithmes des programmes 
utilitaires fournis par Apple sans 
devoir les désassembler dans le 
détail. 

Ainsi, ne cherchez plus pourquoi 
CONVERT 1.0 est si long pour 
lire un catalogue DOS 3.3 : il se 
contente seulement de lire 
consécutivement jusqu'à cinq fois 
les mêmes blocs de la piste $11 ! 


Attention, le paramètre 
ADRESSE, s'il est mal choisi, 
peut entraîner un magnifique 
plantage du système. Il est donc 
très important de le déterminer 
avec soin afin de charger 
SHOW.CODE dans une zone 
mémoire qui ne sera jamais 
affectée par l'interpréteur actif. 


Cette utilisation du programme 
SHOW est surtout destinée à un 
but pédagogique (pour mieux 
discerner le fonctionnement du 
Filer par exemple), ainsi qu'aux 
ambitieux qui écrivent leur propre 
interpréteur système. 


Fonctionnement 
interne 


Le principe de fonctionnement du 
programme repose sur 
l'interception des appels au MLI 
qui ont comme point d'entrée 
l'adresse $BF00. En modifiant le 
JMP qui se trouve à cette adresse, 
une routine prend la main sur 
tous les accès effectués vers 
ProDOS. 


En examinant alors la pile, 
SHOW détermine l'adresse de la 
routine appelante, ainsi que le 
code d'appel au MLI et l'adresse 
de la table des paramètres 
associée. On peut alors appeler 
directement MLI en lui 
fournissant les valeurs 
précédemment trouvées. En 
retour, il reste à gérer l'affichage 
des informations concernant cet 
accès, puis rendre la main à la 
suite de la routine appelante. 


Bien entendu, il faut également 
s'occuper de certains détails, 
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comme les interruptions (car une 
carte souris peut en générer très 
fréquemment), les vecteurs 
d'affichage (en déconnectant 
temporairement le Basic.System 
qui ne comprend plus rien si on 
lui dit ce qu'on affiche...) et 
d'autres babioles telles que la 
sauvegarde/restitution des 
registres ou la sortie en 
catastrophe si jamais la routine 
appelante se met à charger un 
nouvel interpréteur système. 


SHOW gère également les codes 
d'appel inconnus, en affichant 
alors le libellé “Unidentified” 





suivi d'un beep péremptoire. On 
pourra remarquer que 
l'EXERCISER de la disquette 
Apple ne se gêne pas pour 
envoyer quelques codes 
inconnus... 


Fichiers sur la disquette Pom's 


T.SHOW.CODE 
source en Big Mac, type 
TEXT 

SHOW 
objet exécutable après 
chaînage avec CMDLOAD 
(Pom's 20) 


SHOW ne prétend nullement être 
l'outil complet de debugging sous 
ProDOS mais pourra rendre de 
grands services pour dépanner 
certains problèmes de plantage. 
En particulier, couplé avec la 
commande TDUMP, il permet 
une réparation très rapide des 
programmes qui accèdent aux 
fichiers texte. Enfin, c'est un aide 
pour la mise au point rapide (c'est 
à dire sans faire de pas-à-pas) des 
routines en assembleur qui 
manipulent ProDOS. 





Source T.SHOW.CODE 


* pour utiliser ce programme sans Basic.Systex; 


* les paramétres sont alors tous considérés actifs. 
* La routine doit alors impérativement etre chargée 


* dans une zone d'adresses n'interfèrant pas 
* avec l'intergréteur système actif. 


* Localisation du slot de l'imprimante 


adresse dé chargement 
par défaut, pas de sortie vers l'impr 
par défaut, seulement show,c 


position horizontale 
vecteur de sortie des carsctères 


buffer de saisie 

commande externa Basic.System 

vecteur réel de sortie pour Basic,Sys 
rappel après extraction des paramètres 
longueur de la commande externe 
numéro de cemmande Basic.System 

flags de recherche par Basic.System 
type de fichier pour Basic.S$ystem 


éccès au ProDOS MLI 

retour-chariot 

affiche l'accumulateur en hexadécimal 
affiche l'sccumulateur en ascii 
instrouctien RTS immuable (on espère!) 


($2000-20FF pour CMBLOAD) 


(Assembleur Big Mac) 
* 
LST OFF 
SL6T - 1 
ÉRRRLLEREEEEI EEE EL EEE EE IL LILI II 111121] 
* * 
* ProDOS SHON,I,C,0,P * DO  1-BASIC 
* * ABRESSE = $8000 
ARRRÉRARÉR RÉ ÉR AR AR RÉ RRÉRÉÉRRRRAAÉRARE OUT = 9 
XSYSI@ = Le 
thttétitééééiihititidiiiiiiiiiiiéiiiiiisé FIN 
+ * 
* Cemmandes SHOW at NOSHOW pour ProBOS * CH = $24 
* * CSN = $36 
* Copyright (c) 1986 Alexandra Avrane * PTRI _ $3c 
* * PTR2 = $3E 
* Modifié: 05/07/86 * DO  BäSIC 
* Créé: 07/01/86 * IN_BUFF = $200 
* * EXTRNCMD = $BEO6 
* Assembleur: Big Mac * BI OUT = $BE30 
* * XTRNABDR = SBE59 
HRRARtt ete eee e # XLEN = SBES52 
XCNUM … $SBE53 
* Fonction: PSITS - $BES4 
# ===> FILETYPE = $SBEB8 
* Simulse les commandes MON et NOMDN du DOS 3.3, avec les FIN 
# paramètres C (commandes), I (input data) et O (output data), MLI = S2F00 
* P (envoi des informations sur l'imprimante). CROUT = SFD8E 
* Les Commandes correspondent aux appels au MLI, et non PRBYTE = SFDDA 
* les instructions issues de l'Applesoft. COUT - $SFDED 
RTS = SFF58 
* Syntaxe: 
À === DO BASIC 
* SHOK  <paramètres> active les modes de debugging ORG $2100 
* NOSEHOW <paramètres> désactive ELSE 
+ paramètres: ORG ADRESSE 
* C affichages des appels de l'interpréteur vers ProDOS FIN 
* I sffichage des octets lus d'un fichier texte 
* O affichages des octets écrits vers un fichier texte * œuuuss 
* B envoi de l'affichage vers l'imprimante * Macros 
* Les paramètres peuvent etre précédés d'une virguie À === 
* (pour assurer la compatibilité avec le DOS 3.3). MOVE MAC 
* Si aucun paramètre, ls commande est ignorée. LOA J1 
SrA .j2 
* Ce programme doit etre linké avec CMDLOAD (Pom's 20) L8A jisl 
STA J2+1 
* Configuration <<< 
À aunumemeeæ==—= 
+ Apple 114, //e, d/et, fes /1/ GET MAC 
* Vidèo: 40 colonnes (avec minuscules} ou 80 colonnes LDY #}1 
* Processeur: 6502, 65C02, R65C02 LDA (PTR1},Y 
* <<< 


BASIC = (e] 


ProDOS + Basic-System [toutes versions) 


DISPLAY MAC 


* Ce paramètre d'assemblage doit etre mis à zéro LDA #]1 
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JSR COUT STA XCNUM Lommange externe à Basic.System 











<<< STA PBITS euçcun paremétre à faire extraire 
STA PBITS+: 
SAVE_REG MAC STY XLEN longueur de la commande 
PRE >x#> MOVE, CMD_BACK+1;: XTRNADDR adresse de retour 
PHA ELSE 
TXA LDA 50 si utilisation sans Bssic.System... 
PHA STA FLAG -.-1es paramètres sont actifs en 
TYA STA FLAG+1 
PHA STA FLAG+2 
<<< LDA OUT 
STA FLAGs3 
LOAD_REG MAC FIN 
PLA DO BASIC 
TAY €LC c'est bien notre commande externe! 
PLA RTS on nous rappelle à 1a ligne suivante... 
TAX FIN 
PLA 
PLEP ° manmnmanemmnmanmmmenmnnansaneau— 
Lits * Misa en place des interceptions 
° concanaonmanenanmaemensans2= 
EXP OFF * On errive ici dès que ProD0S a compris qu'il n'avait pas 
* à extraire des psramétres pour notre cemmande 
LIL LL LLLLLLIL 111112177717 eesss== 
* Examen de la commande et des paramètres CMD_NEXT LDA MLI+2 l'interception est-elle déjà 14? 
* mauanannasanaacnmnesscnenennananaasaaszs CMP V>MLI 
* On arrive ici à chaque retour-cheriot en mode immédiat, BCS CMD SET non: il faut la placer 
* et pour chagve commande précédée de ctrl-d en mode différé. LDA FLAG 
ADC FLAG*1 
START Fe Lu ADC FLAG+2 aucun paramètre C,1,0 actif? 
Do BASIC CMP #6°3 
CLD convention avec PraD0S BNE CIAO -..a2u moins un 
LDA #>FIN+#$100 conventions pour GDLOAB OFF CMD SEI 
LDA #>LONG-$100 >>> MOVE,SV MLlti;MLI+1 déconnecte l'interception 
V_OLDCMD LDA RTS CLI 
Les 2 3 
SET RATS 
LOA #<IN BUFF le buffer d’entrée contient la saisie 
STA PTRI CHD_SET >>> MVE,MLi+1;:SV MLI+il stocke l'adresse réelle d'entr 
LDA #>IN_BUFEF' SEI 
STA ETRI1+1 >>> MUVE,MY MLI+1:ML1+l intercepte les appels vers MLI 
ZLOY 6$FF CIAC [= 7 pas d'errenr à l'exécution dé notre comm 
CIC Ci 
CM Li INY RTS cette fois-ci, c'est fini. 
LDA (PTR1),Y prend un octet saisi CAD _SACKX ID CD AT fadrease pour etre relogée) 
BCS CMD _L2 on sait déjà que c'est Peut-etre SHOW ja 
CMP CMD, Y NOSHOW? ° 
BNE CMD_L2 non * Interception des appels 
CPY dé6-1 6 caractères dans NOSHOW * 
BEQ FOUND oui * On arzive {ci Jorsqu'une routine quelconque appelle MLI 
8NE CMD_LI pas encore certain (jmp avec carry«ü) 
NY ALI. JP *+J 
CMD_L2 EDR CMD#2,Y SBON? >>> SAVE REG 
BNE NO_ CMD non, c'est pas pour moi F 
CPY #d-1 4 caractères dans SHOW Ex 
BEQ FOUND oui SEI 
SEC indiqve qu'on cherche sur SHOW.., LDA 5105,X récupère l'adresse du programme appelant 
BCS CMD _ Li -..et on continue SIA G0 PG#1 ---et sauve pour l'appeler plus tard 
FOUND TYA STA PTRI 
EOR 93 donne © si SHOW, 6 si NOSHOW LDA $51G6,Xx 
STA PTR2+] STA GO POM+2 
FOUND_L1 INY STA PTRI4] 
LDX #4-1 4 paramètres possibles 
LDA ({PTR1),Y >>> GT,1 code d'appel à MLI 
CP #"," on fgnore les virgules... STA MLI_ CE 
BEQ EOUND_L1 INT 
CM 4“ ” -..et les blancs LDA (PTR1).Y 
8E0 FOUND_ LI STA MLI_PARM 
CMP 9$0D si retour-chariot... INY 
B6Q CMD_OK -.-.fin de la saisie LDA (PTRI],Y*  sdresse des Paramètres 
FOUND_L2 CMP PARN,X un des paramètres? STA MLI PARM+I 
BNE FOUND_L3 je ne sais pas encore CLI é 
TOR PTR2+1 
STA FLAG, X les f1a95s seront nuls si activés DO BASIC 
BPL FOUND_LI .--et on recherche d'autres paramètres LDA MLI_ CODE 
FOUND_L3 DEX EOR #$CA lecture demandée? 
BPL FOUND LZ peut-etre le suivant BNE GO MLI 
BMI NO CM inconnu LDA FILETYPE 
CMP SEE sur un fichier système? 
NO_CMD SEC BNE GO_MLI si oui: on va charger un nouvel interpr 
CLI >>> MOVE, V OLDCMD+1; EXTRNOMD déconnecte la commande ext 
JMP (V_OLDCMD+1) ni SHOW, ni NOSHONW... JSR OFF_CMD déconnecte l'interception vers MLI 
>>> LOAD REG on rastore tout l'environnement .. 
CMD_OK  CLI JM MI -..et on rend l'ame en plongeant sur MLI. 
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GO_MLI >>> LOAD REG * e = ] ==> typeS: reference en +5 
STA TEMP * £f = 1 => type: length en +4/+#5 
PLA * g=1 ==> type7: position en +12/+53/+4 
PLA sdépile le JSR MLI du pgm appelant " f=g"1 ==> typel: caractère newline en +3, masque en +2 
LDA TEMP 
SV_MLI JSR $0000 on appalle MLI TYPE LSR 
MLI_CODE NOF nop pour etre relogeable PHA 
MLI_FARM NOP 8cc TYPE2 
NOP >æ> GET, 1 
STA PTR2 
* mnsnmmummms—— INY 
* Gestion des retours d'appel ZDA (PTR1),Y 
é mens. STA PTR2+1 
* On arrive ici dès que le MLI a fait son boulot LDY F0 
LDA  (PTR2}),Y longueur du pathname 
STA MLI_RC récupère le code-retour MLI 8E0 TYPE2 préfixe nul 
>#> SAVE_REG STA TEMP 
IYPEL L INY 
>#> MOVE,CSN;SV CSN sauve l'ancien vecteur de sortie LNA  (PTR2),Y 
LDA CH ORA #$80 
STA SV CH JSR COUT affiche le pathname 
1 SEI ;inhibibe toutes les interruptions DEC TEM 
LDA FLAG+3 sortie vers l'imprimante? BNE TXPEI L 
BEQ  PRINTER 
DO BASIC TYPE2 PLA 
>>> MOVE,BI_OUT;:CSN ne Passe plus par Basic.System LSR 
FIN PHA 
BNE CHECK C  =jmp BCC TYPES 
PRINTER STA CSN >>> DISPLAY, *$" 
STA CH JSR PRINT_1 affiche Île numéro de bloc 
LDA #5L107+$C0 >>> DISPLAr,"," 
STA CSW+! imprimante activée (vers $C100) 
TYPE3 PLA 
CHECK_C >>> MOVE,MLI _PARM;PTRI LSR 
LDA FLAG show,c actif ? PHA 
BEQ BACK 8cc rYP£é 
JMP 10 non >>> DISPLAY, "S" 
>>> GET,I 
BACK LDA MLI_CODE ASL 
«SR PRINT L4 affiche le code PHP 
>> DISPIAY,":® LSR 
LSR 
T_CALL V LD3 T CAL LSR 
>%> MOVE, T_CALL_V+l;PTRZ LSR 
LDY 0-2 LSR 
SEEK INY ORA F$B0 
INY JSR COUT affiche Îe slot 
LDA (PTR2},Y cherche le code utilise >>> DISPLAY, "," 
BER TRANS code inconnu! >#> DISPLAY, *D* 
EOR MLI_CODE LDA #1 
BNE SEEK PLP 
BCC TYPE3_L 
TRANS INY ASL 
TYA TYPE3_L ORA W$B0 
CEC JSR COUT affiche le drive 
ADC (PTR2),Y 
BCC TRANS2 TYPE4 PLA 
INC PTR2+1 LSR 
CIC PHA 
TRANS2 ADC FTR2 BCC TYPES 
STA PTR2 translate le vecteur vers la 2e tabl >>> DISPLAY, *," 
LDA PTR2+1 >>> DISPLAY, 6" 
ACDC 30 LDY 45 
STA PTR2+1 JSR PRINT 3 affiche la référence à l'ouverture 
LDY #0 TYPES PLA 
Loop ZLDA (PTR2),Y LSR 
BPL PARAMS PHA 
JSR CO0T affiche le libellé BCC  TYPE6 
INY >>> DISPLAY, "#" 
BNE LOOP LDY #1 
JSR PRINT _3 affiche la référence utilisée 
FARAMS PHA 
>> DISPLAY," #* TYPE6 PLA 
PLA BEC THE_END 
PHA 
Ÿ SESSSESSSSSSSSNSSRMNUNUMMEMENMEESSESSRENS >>> DISPLAY, "," 
* Affichage des informations selon l'appel PLA 
[2 SSSSSESSIIIESRSSSRRRDRRRER EEE LSR 
* Table des types de paramètres PHA 
* octet = t0gfedcba BCC TYPE? 
* a = 1 ==> typel: pathname en +1/52 BNE TYPE8 
* b= 1 ==> type2: block number en $4/+5 >>> DISPLAY, °L" 
* c= 1] ==> type3: unit number en +1 >>> DISPLAY, "$" 
* d=1 ==> typed: reference en +] JSR PRINT_1 affiche la iongueur.., 
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>>> GT,6 >>> GT,6 










LOY 4 STA PTR2 
CH  (PTR1),Y ...et Compare avec 12 longueur effect INY 
BC TYPE? ZLDA  (PTRI),Y 
E£A STA PTR2+1 stocke la longueur effectivement lue 
>>> DISPLAY, "-" 
>>> DISPIAY, ">° IO LOOP LOA PTR2 
>>> GET, 7 BNE 10 LONG 
JSR PRINT _L4 si une différence modulo 5100, on l'aff LDA PTR2+1 
PLA BEQ  GOBACK Jusqu'à la fin... 
JSR PRINT_L4 DEC PTR2+1 
IO_ LONG DEC PTR2 *..on décrémente la longueur 











TYPE7 PLA LDÀA S$FFEË (adresse gérée cynemiquenent) 
LSR IO FTR = *-2 
BCC THE END AND 4$7F 
>>> DISPLAY, "8" CÆ #50D 
>>> DISPLAY, "$" BEQ 1O PRINT sauf les retour-chariots... 
EDY #4 #@ 4#$20 
JSR PRINT 2 position (relative byte address) BCC IO INC .--on élimine les codes de controle 
Der 10 PRINT ORA #$80 force le bit 7 à 1 
JSR PRINT 3 JER CGT 
CLC IO INC INC IO PTR æsintenant allons cueillir son voisin 
BCC THE_END “jp BX= 10 L100P 






ISC IO PTR-1 
TYPEB  PLA BNE JO ZO0P =jÿnp 


>#> DISPLAY, "$" 
















LDY #83 + ARE D HU 0 
JSR PRINT _3 * Retour vers le programe appelant 

>> DISPLAY, “(" mm mm mm mm mm 

DEY GOBACX # 

JSR PRINT 3 >>> MOVE,SV_CS#; CSN restore la sortie vidéo Basic.S 
>> DISPLAY, "J" LOA SV Œ 











rt (eh 
THE END LDA MLI RC CLZ 
CIC 
S£EQ RC_0 code-retour CO -_. LDA GO PGMs1 calcule l'adresse de suite du prog 
>>> DISPLAY," * ADC #4 
>>> DISPLAY, °{* STA GO_PGM+1 
PLA LOA GO _PGM+2 
PHA AOC #0 
JSR PRINT _Lé ++.sinon on l'affiche... STA GO PGM+2 
>> DISPLAY, "}" 
RCœ_0 JSR CROUT >>> LOAD REG restore les registres... 
PLA GO_PGM JMP 50000 -.-et c'est finit 
BNE GOBACK ...et on tezmine 






























» ntutatetnses * Routine d'affichage 
* C'éteit un “open” ? pour un fichier texte 7 ? es 
* alors les "reéad* et “write” afficheront les données PRINT 1 LDY #$S 
CEE PRINT_2 LDA (PTR1),Y 
10 LDA MLi CODE JSR PRINT_L4 
CMP 4#$Cê open? DEY 
BNE SHDW_ IO -..non PRINT 3 LDA (PTR1),Y 
>»> GET,S obtient le # de référence PRINT _L4 JMP PRBYTE 



















DO BASIC * ==: mn SSSS 
LDA FILETYPE type texte 7 * Zones de données 
£EOR +#594 ...get_file Ânfo, au moins sous Besic.S # ===2mszssss===s 
ELSE BRK marque la fin de la zone relogeable 
LDA #XSYSIO TXT_FLAG = +-1 
FIN DS 8 indicsteur fichiers texte 
STA TXT FLAG,Y O <»> fichier texte SV CSA DA 0 ancien vecteur de sortie 
cc MI_RC DFB O0 codé-retour MLI 
BCC GOBACK jap TEMP DFB © compteur temporaire 
d'isEs SES er et CS Sv_CH DFB 0 position horizontale 




















* Affichages des données si show, i,o 2O BASIC 
A LL LL LIL 11 1111] CMD ASC "No7 
SHOW 10 CMP SCA read ? ASC "SHOW" 
BEQ SHON [02 PARM ASC *CIOP” 
CMP  #$CB write? FIN 
BNE  GOBACK FLAG DFB 6,6,6,6 par défaut désactivés 
LDY 1'LAG+2 show,o actif ? 
BNE GOBACK T_CALL = gi toble des types d'appel 
BEQ SHOW OK REX 40 
SHOW_IO2 LDY FLAG+1 show,i actif ? DEB" Cour 
BNE  GOBACK HEX 41 
SHON_OK >>> GET,1 1 de référence du read/write DFB C41-* 
HEX 65 
LDA TXT FLAG, Ÿ est-ce un fichier texte? DEB Cé5-* 
BNE GOBACK non! HEX 80 
Le 
>>> GET,3 DFB C80 
STA 10 PTYR#1 HEX 81 
DFB C81-* 
LDA (PTR1),Y HEX B2 
DFB CB2-* 





10 _PTR obtient l'adresse du buffer d'entrée/s 
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HEX CO cel ASC ‘“Write_block” 





DFB CCO-* DFB 400000110 
HEX C1 cB82 ASC "Get_time” 
DFB CCl— DFB 4600000000 
HEX C2 cco ASC "Create" 
DFB CC2-* DFB 4600000001 
HEX C3 cc1 ASC “Destroy” 
DFB CC3-* DFB 4600000001 
HEX C4 Cc2 ASC ‘"Renemne” 
DFB CCâ-r CEFB8 +00000001 
HEX C5 cc3 ASC ‘“Set_file info” 
DFB CC5-* DFB 6400000001 
HEX cé cc4 ASC "Get_file info 
DFB CC6-7 DF8 4000600001 
HEX C7 ccs5 ASC “Online” 
DFB CC7-? DF8 6400000100 
HEX Ce ccé ASC "Set_prefix” 
DFB CC8-* DFB  +00000001 
HEX C9 cc7 ASC "Get_prefix” 
DFB CC9-* DFB 4600000001 
HEX CA cca ASC "Open” 
DFB CCA-* DFB 4600001001 
HEX CB cc ASC ‘"Newline* 
DFB CCB-* DFB 4601110000 
HEX CC CCA ASC "Read" 
DFB CCC DF8 #+00110000 
HEX CD ccB ASC ‘"Nrite” 
DFB CCD-» DFB +00110000 
HEX CE ccc ASC Close” 
DFB CCE-* DFB $00010000 
HEX CF ccD ASC ‘"Flush” 
DFB CCE-* DF8 +00010000 
HEX DO CCE ASC °Set_mark” 
DFB ©O-* DF8 6010:0000 
HEX D1 ccFr ASC “Get_mark” 
DEB CDi-* DFB #01010000 
HEX D2 CcD0 ASC ‘"Set_eof" 
DFB CD2-» DF8 4010160000 
HEX D3 CD1 ASC “Get_eof” 
DFB CD3- DFB 4010100000 
HEX 090 code inconnu: doit etre le dernier cp2 ASC "Set_buf” 
DFB CO0-» (doit etre < SFF) ©€B 4+00010000 
cD3 ASC “Get_buf”" 
c40 ASC "Alloc_interrupt" DFB 4606910009 
D£B 6400010000 coo ASC "Cnidentified” 
C41 ASC ‘"Dealloc_interrupt” DFB $87 beep! 
DFB8 +00010000 DFB 60000000 
C65 ASC "Quit" 
D£FB +00000000 FIN - ® 
ca0 ASC "Read_block" LONG = FIN-START+$100 
DFB +00000110 LST ON 
rs ; _ 2158- 58 6C 06 21 56 A9 00 6D 
Héca ftulation SHOW 2090- 06 BE 85 43 CB 4C 2C FE 
P 20968- 6D FB 20 AS 74 18 69 04 2160- 53 BE 80 54 BE 68D 55 BE 
he . on da 20A0- 8D FC 20 86 3D CE FC 20 2168- 8C 52 BE AD BA 21 8D 50 
RES avoir saisi ce code sous 20A8- FO 47 AD FC 20 6D FD 20 2170- RE AD BB 21 6D 51 BE 16 
Lt oi DS 20B0- AD FD 20 48 4A 4A 4A AA 2178- 60 AD 02 BF C9 BF B8 1D 
PALs: 2000 600 20B8- 68 29 07 A8 B9 F3 20 3D 2180- AD 92 24 6D 93 24 6D 94 
RENTE CPE 20C0- 58 BF DO El A5 3D DO 09 2188- 24 C9 12 DO 29 78 AD 20 
2000- AD 00 BF C9 4C FO 05 A9 20C8- B9 F3 20 1D 58 BF 9D 58 2190- 22 8D 01 BF AD 21 22 8D 
2008- 87 4C ED FD AD 4D BE FO 2000- BF AD FC 20 38 CE FD 20 2198- 02 BF 58 18 60 AD 01 EF 
2010- 05 A9 15 4C 09 BE AD 04 2008- ED FD 20 CD FB 20 DO DO 21A0- 8D 20 22 AD 02 BF 8D 21 
2018- 21 69 00 20 98 20 90 05 20E0- A5 3D DO 07 18 AE FD 20 2148- 22 78 AD BD 21 8D 01 EF 
2020- A9 OE 4C 09 BE CD 02 21 20E68- E6 &8A 60 A9 00 85 3D FO 21B0- AD BE 21 8D 02 BF 18 58 
2028- 90 F6 AE 08 BE 80 08 BE 20F0- B9 38 60 80 40 20 10 08 21B8- 60 AD 79 21 4C BF 21 08 
2030- 8E 07 21 AE 07 BE 8E 06 20F8- 04 02 01 00 00 00 AD 99 21C0- 48 8A 48 98 48 BA 76 BD 
2038- 21 AO 00 8C 07 BE 48 E9 2100- D8 A9 26 A9 04 AD 58 FF 21C8- 05 01 80 6B 24 85 3C BD 
2040- 21 85 3C 68 38 E9 04 85 2108- 78 A9 00 685 3C A9 02 85 21D0- 06 01 80 6C 24 85 3D AO 
2046- 74 A9 21 85 49 84 48 A0 2110- 3D A0 FF 18 C8 B1 3C B0 21D8- 01 B1 3C BD 22 22 CB B1 
2050- 00 B1 46 F0 27 20 8E F8 2118- 0B D9 88 24 DO 06 CO 05 21E0- 3C 80 23 22 C8 B1 3C 8D 
2056- Ag 2F CO 02 DO OF BI 48 2120- F0 OE DO FO 59 8A 24 DO 21E8- 24 22 58 AD 22 22 49 CA 
2060- C9 21 90 09 CD 02 21 BO 21268- 2E CO 03 FO 03 38 BO Ed 21F0- DO 1F AD B6 BE C9 FF DO 
2068- 04 65 3C 91 48 AS 48 38 2130- 98 49 03 85 3F C8 A2 03 21F8- 18 AD 06 21 8D 06 BE AD 
2070- 65 2F 85 48 A5 49 69 00 2138- B1 3C C9 AC FO F7 C9 A0 2200- 07 21 8D 07 BE 20 8D 21 
2076- 85 49 DO D3 A0 00 A9 21 2140- FO F3 C9 8D FO 16 DD 6E 2206- 68 AB 68 AA 68 26 4C 00 
2080- 84 3C 85 3D 18 6D 04 21 2146- 24 DO 07 A5 3F SD 92 24 2210- BF 68 AB 68 AA 66 28 6D 
2068- 84 42 868 84 3E 85 3F AD 2150- 10 E5 CA 10 F1 30 00 38 2218- 86 24 68 668 AD 86 24 20 
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2220- 
2228- 
2230- 
2238- 
2240- 
2248- 
2250- 
2258- 
2260- 
2268- 
2270- 
2278- 
2280- 
2288- 
2290- 
2298- 
22A0- 
22A8- 
22B0- 
22B8- 
22C0- 
22C8- 
22D0- 
22D8- 
22E0- 
22E8- 
22F0- 
22F8- 
2300- 
2308- 
2310= 
2318- 
2320- 
2328- 
2930- 
2330 
2340- 
2348- 
2350- 
2358- 
2360- 
2368- 


00 EA EA EA 8D 85 24 2370- A0 07 B1 3C 20 77 24 68 24C0- CF CE DO D5 D1 DB D2 E1 


48 8A 48 98 48 A5 36 2378- 20 77 24 68 4A 90 2F A9 24C8- D3 E7 00 ED C1 EC EC EF 
83 24 A5 37 8D 84 24 2380- C2 20 ED FD A9 A4 20 ED 24D0- E3 DF E9 EE F4 E5 F2 F2 
24 8D 87 24 78 AD 95 2388- FD A0 04 20 6F 24 88 20 24D8- F5 F0 F4 10 C4 ES El EC 
FO OC AD 30 BE 85 36 2390- 75 24 18 90 19 68 A9 A4 24E0- EC EF E3 DF ES EE F4 ES 
31 BE 85 37 DO 08 85 2398- 20 ED FD AO 03 20 75 24 24E8- F2 F2 F5 FO F4 10 DI1 F5 
85 24 A9 C1 85 37 AD 23A0- AS A8 20 ED FD 88 20 75 24F0- E9 F4 00 D2 ES E1 E4 DF 
22 85 3C AD 24 22 85 23A8- 24 A9 AS 20 ED FD AD 85 24F8- E2 EC EF E3 EB 06 D7 F2 
AD 92 24 FO 03 4C CE 23B0- 24 48 FO 14 A9 AO 20 ED 2500- E9 F4 ES DF E2 EC EF E3 
AD 22 22 20 77 24 A9 23B8- FD A9 A8 20 ED FD 68 48 2508- EB 06 C7 E5 F4 DF F4 E9 
20 ED FD AD 96 24 AD 23C0- 20 77 24 A9 A9 20 ED FD 2510- ED ES 00 C3 F2 ES El F4 
22 85 3E AD 76 22 85 23C8- 20 8E FD 68 DO 75 AD 22 2518- ES 01,C4 E5VH3 F41FR2 EE 
AO FE C8 C8 Bi 3E F0 23D0- 22 C9 C8 DO 10 AO 05 B1 2520- F9 01 D2 ES EE El ED ES5 
4D 22 22 DO F5 C8 98 23D8- 3C A8 AD B8 BE 49 04 99 2528= 01 DIE F4 DF E6 E9 EC 
71 3E 90 03 E6 3F 18 23E0- 7A 24 18 S0.5E C9 CA FO 2530- "ES Dr. E9vEE E6 EF 01 C7 
3E 85 3E A5 3F 69 00 23E8- 0B C9 CB DO 56 AC 94 24 2538- ES F4 DF E6 ES EC E5 DF 
3F A0 00 BI 3E 10 06 23F0- DO 51 FO 05 AC 93 24 DO 2540- E9 EE E6 EF 01 CF EE £C 
ED FD C8 DO F6 48 A9 23F8- 4A AO 01 Bi 3C A8 B9 7A 2548- E9 £E ES5 04 D3 ES F4 CD 
20 ED FD 68 4A 48 90 2400- 24 DO 40 AO 03 B1l 3C 8D 2550- F0 F2 ES5 E6 E9 F8 01 C7 
AO 01 B1 3C 85 3E C8 2408- 29 24 88 Bi 3C 8D 28 24 2558- E5 F4 DF FO F2 ES E6 E9 
3C 85 3F AO 00 B1 3E 2410- AO 06 Bi 3C 85 3E C8 BI 2560- F8 01 CF F0 ES EE 09 CE 
10 8D 86 24 C8 B1 JE 2418- 3C 85 3F AS 3E D0 06 A5 2)68- ES F7 Æ E9 EE ES 70 D2 
80 20 ED FD CE 86 24 2420- 3F F0 20 C6 3F C6 3E AD F970- ES El E#% 30 D7 F2 E9 F4 
F3 68 4A 48 90 OD A3 2428- FF FF 29 7F C9 OD FO 04 Mp7a-V ES .30"C3. EC EF'F3.ES5 10 
20 ED FD 20 6D 24 A9 2430- C9 20 90 05 09 80 20 ED 22580= Cé EC FS F3 E8 10 D3 E5 
20 ED FD 68 4A 48 90 2438- FD EE 28 24 DO DD EE 29 06 FA40DF ED E1 F2 EB 50 C7 
A9 D3 20 ED FD AO Ü1 2440- 24 DO D8 AD 83 24 85 36 2590- ES F4 DF ED El F2 EB 50 
3C 0A 08 4A 4A 4A 4A 2448- AD 84 24 85 37 AD 87 24 2598= D3 ES F4 DF ES EF E6 50 
09 B0O 20 ED FD A9 AC 2450- 85 24 58 18 AD 6B 24 69 23A0= C7 ES F4 DF ES EF E6 50 
ED FD A9 C4 20 ED FD 2458- 04 8D 6B 24 AD 6C 24 69 25A8- D3 ES F4 DF E2 F5 E6 10 
01 28 90 O1 CA 09 BO 2460- 00 8D 6C 24 68 A8 68 AA 29B0= C7 ES F4 DF E2 F5 E6 10 
£D FD 68 4A 48 90 OF 2468- 68 28 4C 00 00 AO 05 B1 25B8- D5 EE E9E4 ES EE F4 E9 
AC 20 ED FD A9 A3 20 2470- 3C 20 77 24 88 B1l 3C 4C 25C0- E6 E9 E5 E4 87 00 DO 339 
FD A0 05 20 75 24 68 2478- DA FD 00 FD 00 AS AD 8D 25C8- 8D 10 CO FO 34 20 8A SD 
48 90 OA A9 A3 20 ED 2480- BF 9D A9 00 00 00 00 00 25D0- 20 6C 9C B0 25 20 62 SF 
AO 01 20 75 24 68 FO 2488- CE CF D3 C8 CF D7 C3 C9 25D8- 90 04 CA BD 00 02 08 80 
48 A9 AC 20 ED FD 68 2490- CF DO 06 06 06 06 40 35 25E0- 9D 00 02 8A DO F4 20 00 
48 90 2F DO 47 A9 CC 2498- 41 43 65 53 80 56 81 5F 25E8- 9A 20 D5 9A 2C 53 BE 10 
ED FD AS A4 20 ED FD 24A0- B2 69 CO 70 C1 75 C2 7B 25F0- DC 60 20 8A SD 20 48 9C 
6D 24 AO 06 B1 3C A0 24A8- C3 80 C4 8C C5 98 C6 9D 25F8- 90 F7 20 45 B2 C9 05 DO 
D1 3C F0 16 48 A9 AD 24B0- C7 A6 C8 AF C9 B2 CA B8 

ED FD A9 BE 20 ED FD 24B8- CB BB CC BF CD C3 CE C7 


Editeur Plein Écran 


4 Fes Apple //e, lc 
Le Pacha = P = DOS, ProDOS 
40, 80 colonnes 

Listez vos programmes Basic en avant et en arrière. 


Modifiez, insérez, effacez des caractères en plein écran sans relire les lignes. 
Recherchez toute chaîne de caractères. 
Choisissez vous-même les codes de contrôle d'EPE. 
Modifiez EPE : le fichier source est sur la disquette. 


200,00 F TTC franco (bon de commande page 74). 
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Depuis la parution du numéro 27 
de Pom's, le câble de liaison 
Apple/Miaitel fait partie de votre 
équipement. Vous ne l'avez pas 
trouvé chez les revendeurs ? 
Vous ne l'avez pas réalisé 
vous-même ? Pom's vous le 


propose aujourd'hui par 
correspondance. 
Cette liaison trouve ici une 


nouvelle application, la 
transmission (émission et 
réception) de fichiers par 
téléphone via Minitel entre Apple, 
même si votre correspondant ne 
dispose ‘que’ d'un Macintosh. 


Ce programme vous perinettra 
d'échanger plus facilement et 
rapidement des fichiers et 
programmes, et par exemple de 
travailler à domicile puis de 
télécharger le Macintosh de votre 
bureau... 

Cette présentation ne concerne 
que la version Apple //, la version 
Macintosh se trouvant aux pages 
41 à 53. 


Tous fichiers, 
Toutes tailles, 
Tous supports. 


Bien que plus délicate à mettre en 
œuvre, la transmission de fichiers 
a été préférée à la transmission de 
disquettes complètes pour une 
question de rapidité et pour ne 
pas être tributaire d'un type 
paiticulier de support. 


Ce programme, conçu sous 
ProDOS, profite de la souplesse 
de ce système d'exploitation : 
tous les types de fichiers sont 
accessibles en suivant une unique 
procédure ce qui simplifie la 
programmation. 


Côté utilisateur, cela signifie que 
tous les fichiers sont transférables 


InterPom’s 


Téléchargement via MINITEL 


Christian Piard 


par téléphone : fichiers Basic, 
TEXT, binaires, variables, 
AppleWorks tant texte que base 
de données ou tableur. Il peut 
également s'agir de tout type 
utilisateur (de $F1 à $F8) et de 
fichiers système. ProDOS, 
lui-même un fichier, est compris 
dans cette liste non limitative. 


Deux exceptions toutefois : 
+ letype BAD est autorisé mais, 


regroupant par définition des- 


blocs illisibles, l'issue d'une 
tentative de transmission sera 
l'échec. 

* Le type DIR (directory) est 
interdit car créer des dossiers et 
sous-dossiers sur le disque du 
récepteur ne présenterait que 
des inconvénients. 


Autre avantage de ProDOS, 
l'indépendance vis-à-vis du 
périphérique le fichier à 
transmettre sera indifféremment 
sur une disquette 5,25 pouces, 
une 3,5’, un disque dur et 
pourquoi pas le disque virtuel 
/RAM ? 


La taille n'est limitée que par la 
durée (et le coût) de la 
communication : le fichier est 
chargé par fractions en mémoire. 
Il faut compter transmettre les 
données à raison de 4 kilo-octets 
par minute. Le programme Basic 
le plus volumineux ne demandera 
guère plus de 5 minutes. 


Si le fichier à transmettre n'est 
pas au format ProDOS, il vous 
suffira de le convertir à l'aide de 
l'utilitaire 'CONVERT' ou, pour 
les possesseurs de //c, à l'aide 
d'‘Utilitaires Système”. 


Le protocole 


L'ordinateur émetteur transmet un 
bloc de données trans portant 512 
octets codés, un numéro d'ordre, 
un octet de contrôle de ce 


numéro, une somme de contrôle. 
L'ordinateur récepteur contrôle la 
validité du numéro d'ordre, le 
numéro lui-même, la somme de 
contrôle. Si tout va bien, il 
enregistre les données et envoie 
un acquièscement à l'émetteur qui 
va poursuivre. Dans le cas 
contraire, il demandera la 
réémission des données ou, en 
cas d'incohérence dans la 
succession des blocs, ïil 
demandera l'annulation de la 
transmission. D'autres contrôles 
sont effectués pour assurer une 
excellente fiabilité à l'ensemble : 
trop de temps entre deux 
caractères ? trop de temps entre 
deux blocs ? 


Le premier bloc de données 
transmis comporte le type 
d'ordinateur émetteur, le nom du 
fichier, sa dimension, son type et 
les paramètres auxiliaires. Le 
récepteur saisit ainsi les éléments 
nécessaires à la création d'un 
fichier identique et vérifiera que le 
suppoit dispose d'un nombre 
suffisant de blocs libres. 


Le codage 


Le modem du Minitel travaillant 
sur 7 bits et la gestion d'écran se 
réservant certains codes ASCII, il 
a été nécessaire de coder les 
données. La méthode retenue ici 
consiste à forcer à 1 le bit 6 de 
chaque octet afin de n'envoyer 


.que des octets supérieurs à 63, 


les codes de contrôle du Minitel 
se trouvant au-dessous de cette 
valeur. 


Il faut donc 4 octets composés de 
6 bits utiles seulement pour 
représenter 3 octets. 683 octets 
seront envoyés par Minitel pour 
véhiculer les 512 octets de chaque 
blocs ProDOS. Ce type de 
codage, qui ne prend qu'une 
fraction de seconde, est plus 
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TRS EL Em TIE RIM NT ELRNC'EE BIRD SE ET LD ELLES NELSON 
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adapté à la transmission 
téléphonique (gain de temps) que 
la simple scission en deux octets, 
méthode utilisée dans les 
transmissions locales. 


Le schéma page 31 montre le 
principe de codage. 


Mode d'emploi 


Si vous n'avez pas la disquette 
Pom's, deux solutions : saisir le 
source avec l'assembleur 
ProCODE, assembler, ou bien 
saisir l'objet en mode moniteur, 
et le sauvegarder sur une 
disquette ProDOS. 

Si vous avez la disquette, 
transférer le fichier ‘Minitel’ sur 
une disquette ProDOS à l'aide de 
‘Convert’ ou ‘Utilitaires 
Système’. 


Votre disquette ProDOS devra 
comporter les fichiers : ProDOS, 
Minitel et Basic.System. Ce 
dernier est indispensable pour 
que le programme puisse afficher 
le catalogue d'une disquette. 
[1 suffit alors de faire : 

- INTERPOMS 
Pour un démairage direct sur ce 
programme, il faut le renommer 
STARTUE. 


Une transmission de fichier peut 
se présenter ainsi : 


+ Communication téléphonique 
entre les intéressés ; 

+ Mise sous tension des Minitels 

(sans les connecter) ; 

Lancement des programmes. 
metteur et récepteur devront 

demander l'émission et la 

réception dans la même 
minute ; 

+ Les ordinateurs connectent 
eux-mêmes les Minitels. 
Les programmes déconnectant 
sans préavis le Minitel, il est 
préférable de ne pas raccrocher 
le combiné pendant ]la 
transmission. Différents 
messages vous informent du 
bon déroulement de Ja 
procédure. 


Le programme 


Le menu vous propose : 
* l'envoi d'un fichier, indiquer 


alors le nom du fichier. Le 
préfixe par défaut sera 
automatiquement ajouté sauf si 
le “chemin d'accès” est 
complet, c'est-à-dire commen- 
çant par un “/”. 

* la réception d'un fichier, 
réception qui se fera en suivant 
le “chemin” indiqué par le 
préfixe, 

+ OnLine qui affiche tous les 
volumes en ligne, 


+ la modification du préfixe 
courant, préfixe qui peut viser 
un dossier c'est-à-dire être du 
type /DISK/CLIENTS/DEVIS, 


+ le catalogue. 


L'ordinateur récepteur constituera 
le ficher sur le disque sous le 
nom d'origine si l'émetteur est un 
Apple //, en suivant le chemin du 
préfixe, par exemple : 


L'émetteur envoie 
/FIC/DOS1/CAIÇUL 

Le préfixe chez le récepteur est 
/DISQUE.DUR/ 

Le fichier créé sera accessible par 
/DISQUE.DUR/CALCUL 


Au cas où un fichier CALCUL 
existerait déjà sur le volume 
récepteur, le programme essaiera 
de le créer en incrémentant le 
dernier caractère : CALCUM. S'il 
existe égalament, il le nommera 
CALCUN etc. Après CALCUZ, il 
tentera CALCUO, CALCU1... Au 
cas, peu probable, où vous 
transfèreriez 36 fois le même 
fichier, le programme ne pourra 
pas le créer. 


Si l'émetteur est un Macintosh, 
en raison des nombreux 

aractères exotiques (Y À V {  d 
Î # ”g Ÿ) autorisés dans les noms 
de fichiers, le programme 
donnera le nom FICHIER.MAC.A, 
puis FICHIER.MAC.B... 


La routine de saisie des noms de 
fichiers et de préfixe en contrôle 
la syntaxe : minuscules conveities 
en majuscules, pas de chiffre ni 
de point en premier caractère ou 
après un ‘“/”, succession de deux 
“/? interdite etc. 


Le Minitel 


Côté émetteur, il est 


indispensable que le Minitel soit 
“retournable” (ils le sont 
pratiquement tous aujourd'hui). 
Côté récepteur, c'est sans 
importance. Le Minitel échange 
ses données sur le réseau 
téléphonique de la manière 
suivante : il émet à 75 bauds et 
reçoit à 1200. Pour que la 
transmission soit rapide, il 
convient que le Minitel émetteur 
soit capable se “retourner”, 
c'est-à-dire émettre à 1200 baudbs. 
Le récepteur émettra ses 
acquièscements à 75 bauds. 


La liaison série 


Vous avez un Apple //e ou IlGs 
doté d'un carte Apple 
SuperSérie : installez la carte en 
port 2, et configurez la ainsi : 


swi sw2 
on on 
fQUUUOUU| |“ DUQOUO0 
modem 
configuration 
de la carte 
terminal SSC Apple 


Vous avez un Apple //c, le 
programme se charge de la 
configuration du port série 
intégré. 


Dans tous les cas, il vous faut un 
câble de liaison qui fera interface 
entre l'ordinateur et le Minitel. Le 
schéma est présenté ci-contre. Si 
vous doutez de vos capacités 
d'électroniciens, ce câble est 
disponible à la revue, par 
correspondance. N'omettez pas 
de débrancher les appareils avant 
d'effectuer le raccordement. 


Correspondant Mac 


Si votre correspondant possède 
un Macintosh, vous pourrez lui 
envoyer n'importe quel type de 
fichier, mais lui ne pourra vous 
transmettre que des fichiers de 
type TEXT (MacWrite, 
Muitiplan, Excel... en fomnat 
TEXT). Certains caractères issus 
du Mac sont recodées à la 
réception pour être plus 
présentables sur l'Apple // 
(caractères °—,,. +" 74» 
Æ æ Œ œ ê Ô îipar exemple). 
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Source INTERPOMS.1 
Assembleur ProCODE 


PUT INTERPOMS.2 
PUT INTERPOMS.Z 


Source INTERPOMS.2 


* INTERPOÏMS 
* @ Pon's 6 CP 


LST OF 
DSK  INTERPOMS 
ORG $2000 
SOH = 1 
EOT - 
ACK = 6 
NACK = 21 
CAN = 25 
COMPTNC = $18 
COMPTC = $ia 
FILEBUF $1000 
BUFNC = $1489 
BUFC = $1700 
DEVONT = SBF31 
MLI - SBF00 
CREATE = sce 
OPEN - $c8 
REAB = $CA 
WRITE = $CB 
CLOSE - soc 
GETFINFO = $ca 
ONLINE = $c5 
STPREFIX = $cée 
GTPREFIX = sc7 
GETTIME = $82 
GETEOF = $D1 
SETEOF = $DO 
KBD = $coos 
STROBE = $C010 
STATUS = s6 
DATA = $8 
#P = $co3e 
COUT = SFDED 
GBASL _ $26 
GBASCALC = $r84? 
VTAB = $FC22 
CV = $25 
CROUT = $DAFB 
WNDTOP = $23 
WNDBTM = $23 
CH - $24 
STROUT = $DB3A 





Récapitulation 


‘INTERPOMS” 


Après gveir saisi ce code sous 
meniteur, vous le sauvegaræerez 
Dar à 

BSAVE INTERPOMS,A$2000, L$1566 
sur une disquette ProDOS,. 


2000- A2 FF 9A AD 00 BF C9 4C 
2008- F0 06 A9 7F 20 D2 31 4C 
2010- D0 03 AD B3 FB C9 06 DO 
2018- 1D AD CO FB DO 13 20 C4 
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2020- 
2026- 
2030- 
2038- 
2040- 
2048- 
2050- 
2056- 
2060- 
2068- 
eov0= 
2078- 
2080- 
2088- 


34 
20 
20 
6D 
49 
6D 
20 
6D 
99 
E3 
35 
CO 
08 
00 


À9 
ED 
A9 
F2 
A5 
8B 
BO 
6E 
6E 
A9 
20 
65 
A9 
00 


02 
FD 
07 
03 
6D 
20 
4A 
35 
35 
AF 
00 
07 
A9 
02 














ST 


LA 


DIN)30° 
S broches 
Mêle 


Aou Sz8q 


Applell+, //e ou cs 
. Carte SSC 





£t 


HOME 
TEXT _ 
BASIC = 
CLREOP = 
LINPTR = 
LASTDEV = 
PEB00 LDX 
TXS 
LDA 
CHE 
BER 
LDA 
JSR 
UMP 
DEVO LOA 
cMe 
BNE 
LDA 
BNE 
JSR 
LDA 
USR 
LDA 
USR 
JSR 
JMP 
DEVOEO  LBA 
95 FE A9 07 
93 FE 4C 36 
00 C2:A9 C8 
32 86D F3 03 
03 AD 30 BF 
00 BF C5 6A 
6E 35 29 0F 
B9 6E 35 C8 
68 CO 00 20 
6Fw35tEE 6E 
C6 8E 20 A9 
09 A9 A6 685 
06 4C 9D 20 
6E 35 01 6E 


$EC58 
SFB39 
$3D0 

$FC42 
$ED24 
$SBF30 


$SFF 


$BF09 
#$4c 
DEVO 
$s7F 
ERREUR 
BASIC 


$SFBB2? 
+6 
OEVOE 
$FBCO 
DEVOEO 
BEUXC 


#2 
$FE95 
#7 
COÛT 
$SFE93 
DEVOE 


#7 


















DIN 180° 


5 broches 
Môte 


 initialise la pile futile 
ÿ pour repartir après RESET) 
+ Est-on sous ProDOS ? 


; eui, 


: Non, 


tvb 


En: 


; Est-on sur un //ce ? 


s oui, on règle l'interface 


2090- 35 
2098- 2D 
20A0- ED 
2028- 20 
20B0- A9 
20B6- CE 
20C0- DO 
20C68- 22 
20D0-+ F8 
20D6- 20 
20E0- 22 
20E6- 43 
20F0- 4C 
20F6- A9 


03 
B9 
FD 
71 
16 
21 
JE 
A9 
ai 
FD 
FC 
21 
E? 
15 


22 
2C 
20 
2D 
20 
FO 
20 
16 
99 
25 
20 
FO 
20 
20 


72 
A9 
20 
20 
A2 
ED 
A9 
A0 
68 
685 
A0 
ED 
6D 
A9 


2F 
15 
58 
30 
00 
FD 
03 
OA 
10 
25 
00 
FD 
B7 
16 


60 
20 
EC 
21 
BD 
E8 
85 
B9 
F9 
20 
B9 
(er: 
2C 
65 

















JSR SC200 MENU LDA #21 # désactive l'éventuelle 
DEVOE LDA $<RESET # Si RESET, on recommence -7SR. COUT carte 80 colonnes 
STA S$3F2 JSR TEXT 
LDA #>RESET JSR HOME 
STA $3F3 JSR CLOSEFIL ‘ On ferme fces du RESET) 
EOR #SAS LDA #1  Prépare écran 
STA S3F4 JSR LIGNE 
LCA #22 
LDA LASTDEV ; Récupère dernier lecteur JSR LIGNE 
STA LD { utilisé poux mettre son LDX #0 
JSR MLI ‘ préfixe en préfixe par MENUO LDA MESTITRE, X 
DFB ONLINE + défaut BEQ MENL'I 
DA PARLDO JSR COUT 
BCS MENU INX 
LDA PATHNAME } récupère ïe nc 8NE MENUO 
AND 4##00001111 MENU JSR LITPREF # 1ft et affiche préfixe 
STA  PATHNAME LDA #3  linûte écran 
TAY STA WND20P 
DEV1 LD  PATHNAME, Y LDA 422 
INY STÀ AWNDETM 
STA PATHNAME, Y LDY #10 
DEY 2 LEA PONS. Y 
DEY STÀ $49D,Y 
CPY #0 DEY 
BNE DEVI1 BEL P 
LDA #"/" 
STA  PASHNAME+1 CHOIX USR EFFDATE 
INC  PATHNAME LOZ $4 ; VTAB 
SIA "CV 
JSR MLI i met en préfixe fer JSR VTAB 
DFB STPREFIX ‘+ défaut ie nas trouvé JSR RECIT au cas où... 
DA PARELD1 LDY #0 
CHOIXO LDA MESMENU,Y ;ÿ affiche les menus 
LO2 4$C0 ; interface en slot 2 BEQ CHOIXI 
STA STA!US+1 JSR COUT 
STA DATA+i INY 
LDA  #$A8 JME  CHOIXO 
STA DATA CHOIX1 LDA #1 ; attend 1 seul carac 
LDA 4$A9 STA LONG 
STA STATDS LDA #19 : en ligne 19 
JSR GBASCALC 
JMP MENU i On commence LDA #22 j Colonne 22 
ADC GBASL 
OLDVEC DS 2 STA GBASL 
8CC CHOIX2 
PARLDO DFB 2 INC GBASL4+1 
LD DS 1 CHOIX2 JSR INPUT 
DA PATHNAME LDY #5 
PARLD1 DFB 1 ZLOA BUFFIN 
DA  PATHNAME CHOIX3 CMP MESCHOIX,Y ; est-ce un carac autorisé 
BEC CHOIXS j Oui 
en DEY 
* MENU BPL CHOIX3 
nr seeree JSR BIP ; non 
BCS CHOIX] 
ADRCHOIX DA  ENVFICH ; Adresse des différentes 
DA  RECFICH + options CHOIX4 IDA #<ADRCKOIX ; fnitialise saut indirect 
DA  MODPREF STA CACIXIND»1 
DA ONL TYA + Y = choix - 1 
DA  CATAL BEQ CHOIXIND ÿ on incrémente le saut indirect 
DA QUITTER CHOIXS INC CHOIXIND»#1 ; en fn) du choix 
2100- 26 85 26 90 02 E6 27 20 2170- E8 E9 E5 F2 8D 8D AO A0 21E0- FB F2 FB E3 E5 FO F4 E9 
2108- C? 2B A0 05 AD 8E 2C D9 2178- BC CD BE EF Ed E9 E6 E9 21E8- EF EE A0 DF DF DF DF DF 
2110- 3D 21 FO 08 88 10 F8 20 2480— E5 F2 A0 EC E5 A0 F0 F2 21F0- DF DF DF DF DF DF 6D 00 
2118- 82 32 BO D7 A9 91 68D 2E 2188- FB E6 E9 F8 E5 68D 8D A0 21F8- 20 09 OE 14 05 12 10 OF 
2120- 21 98 FO 09 &E 2E 21 EE 2190- AO BC CF BE EE EC E9 EE 2200- OD 13 20 A9 03 85 22 20 
2128- 2E 21 88 DO F7 6C 91 20 2198- E5 8D 8D A0 AO BC C3 BE 2208- 58 FC 20 A7 31 20 EA 2F 
2130- 20 47 F8 AO 27 A9 DF 91 21A0- El F4 El EC EF E7 F9 E5 2210- A9 07 85 25 20 22 FC A9 
2138- 26 88 10 FB 60 C5 D2 CD 21A8- 8D 8D AO A0 8C Di BE F5 2218- 00 85 24 A0 24 A9 B8 20 
2140- CF C3 D} 8D 8D AO AO BC 21B0- E9 F4 F4 ES F2 8D 8D 6D 2220- 34 DB A9 26 8D B7 2C A9 
2148- CS BE EE F6 EF F9 E5 F2 21B8- A0 AO A0 AO AO AO A0 A0 2228- 09 20 47 F8 20 C7 2B 90 
2150- A0 F5 EE AO E6 E9 E3 E8 21C0- D6 EF F4 F2 ES A0 E3'E8 2230- 03 4C 10 2E AC B8 2C DO 
2158- E9 E5 F2 8D 68D AO A0 BC 21C8- EF E9 F8 AO EA 00 D4 FB 2238- 05 20 82 32 BO D2 B9 &E 
2160- D2 BE E5 E3 E5 F6 EF E9 214D0- EG FB\ES E8 El F8 ET. ES 2240- 2C C9 AF D0 01 88 8C 6E 
2168- E2 AO F5 EE A0 E6,E9 EJ 21D8- ED ES EE F4 AF D4 FB EC 2248-0395 BC AE F50B9 8E ZÆ C8 
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INC CHOFXIND+1 JMP  VADES 
DEY SA1 LDY TES 
BNE CHOJXS BNE SUITESAI ; longueur nem > © 
JSR BIP ; sinon pas d'accord 
CHOIXIND JMP (ADRCHOIX) ;j saut mis à jour par le choix BCS  SAISINI 
LIGNE JSR GBASCALC SUITESAI 2ZDÀA BUFFIN,Y ‘ le dernier car est un / ? 
LDY 439 CMP gm/" 
OA) #"" BNE SUITEO 
LIGNEI STA (G8ASL),Y DEY 
DEY 
BPL LIGNE SUITEO STY  PATHNAME # stocke nom »our MLI 
RTS STY LNGPATHN ; et garde la longueur 
SUITSAII LRA BUFFIN,Y 
INY 
MESCHOIX ASC "ERMOCQ" STA PATHNAME, Y 
DEY 
MESMENU DFB $8D,$8D DEY 
ASC # <E>nvoyer un fichier" BPL SUITSAII 
: OFB $8D, $8D 
ASC " <AR>ecevaoir un fichier" JSR OLUVREFIC ; ouvre fichier demandé 
DFB $8D, $8D BCC SUITOUV 
ASC " <M>odifier le préfixe" UMP  CLOTFIC 
DFB $8D,$8D 
ASC " <O>nline SUITOUV JSR GFI ; get file info 
dfb $8D,$8D BCC  SUITOUVO 
ASC M"  <C>aralogue" JM  CLOTFIC 
DFB $8D,$8D 
ASC " <@>uitter" SUITOUVO LDA FILETYG 
DFB  $8D, $8D, $8D CMP SF ‘ C'est un directory ? 
ASC Votre choix :" BNE SUITOI ; non, tvb 
DFB 0 LDA À$S7E ;: ouf, c'est interdit 
MESTITRE ASC "Téléchargement /Téler" JSR ERREUR 
ASC “éception L JSR CLOSEFIL 
DFB $8D,0 JSR GETRET 
POMS INV "“ INTERPOMS " JMP  ENVFICH 
a SUIT8I  LDA REFNUM 
* ENVOI DE FICHIER STA REFNUMG 
ES JSR GETLONG ; récupére longueur du fichier 
BCC SUITOUVI 
ENVFICH LDA 83 UMP CLOTFIC 
STA WNDTOP 
JSR HOME SUITOSVI LOA #11 
JSR RECOIT : s'il reste un carac STA CV 
JSR VTAB 
USR LITFREF LDA #0 
SAISINI LDA #7 ; saisie du nam de fichier STA CH 
STA CV LDX  BLOCKUS ; affiche blocs à transférer 
JSR VTAB LDA  BLOCKUS+1 
LDA #0 JSR LINPTR 
STA CH LDY #>MESBLOC 
LBY  #>NOMFIC LDA #<MESBLOC 
LOA #<NOMFIC JSR STROUT ; ok pour transfert ? 
JSR STROUT JSR GETRET 
LDA f38 BCC  BOUCLEO s oui 
STA LONG JSR CLOSEFIL ; non 
LDA 49 JMP  ENVFICH 
JSR  GBASCALC 
JSR INPUT BOUCLEO JSR RETOURN ; rercurne le Minitel émetteur 
BCC SAi JSR CONNECT ; et de connecte 
2250- 99 6E 35 88 88 10 F5 20 22C0- 58 FC 20 FB DA E6 22 20 2330- A7 31 BO 1A AD 00 CO 2C 
2258- 1F 2D 90 03 4C E6 23 20 22C8- 16 35 A9 06 20 72 24 A9 2338- 10 C0 ES 98*F0 OD 20.68 
2260- 54 2F 90 03 4C E6 23 AD 2200-0060" Fa4"25.6D FEne25%20 2340= 34 CE\E7 25 AD F7 25°F0 
2266- 64 2F C9 OF DO QE A9 7E 22D8- A7 31 BO OZ AD 00 CO 2C 2348- 10 10 E4 4C FA 23 C9 i9 
22710. 200b2 34920171 2D12/0PIE 22E0- 10 CO C9 9B DO F1 4C FA 2350=2D0 03 WC 53 24 C9 15"D0 
2278- 32 4C 03 22 AD 30 2D 8b 22E8-S290C9 1 9eR0 106 C9415.F0 2358- 29 EE FC 25 AD FC 25 C9 
2280- 1B 2D 20 0E 2D 390 03 4C 22F0- 05 DO E4 4C 53 24 4C 87 2360- 0OB DO 03 4C F2 23 20 16 
22868= E6 25 AM 0B 95 25 20422 22F6- 24 20 4B 2D 90 12 €9 4C 2368= 35 AE, FC 25 AS 00 20 24 
2290- FC A9 00 85 24 ÀE 68 2F 2300-00 03 4C 91 23 28 92 31 2370- ED A9 02 20 72 24 AE FA 
2298- AD 69 2F 20 24 ED A0 24 2308=.A9, 19 20 SA:3N.4C E6.23 2378- 25 AD FB 25 20 24 ED 4C 
22A0- A9 D5 20 3A DB 20 1E 32 2340- 20 28130 20 16 35 A9 01 2380- 27 23 C9 06 DO A9 EE FA 
2226- 90 0620 71 #D 4C 0322 2318- 8D FC 25 20 72 24 AË FA 2388- 25 D0 O3MEE EB5 25 4C F9 
22B0- 20 F8 34 20 £E9 34 A9 OA 2320- 25 AD FB 25 20 24 ED 20 2380- 22 AS O1 8D FC 25 20 16 
22B8-° 20 30 21 A9«0B 85 22 20 2826-0989 31 A9 0B 8D F4 25 20 2398- 35 A9 08 20 72 24 AE FC 
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EE  . . —" " . 





BOUCLE 


L1 


L333 


DECO 


L30 


L31 


NOMBLOC 
NUMBLOC +1 


RECOIT 
Li 
K8D 
STROBE 
#55B 
BOUCLE 
ANNEME 
#CAaN 
Lz 
#NaCx 
L22 
BOUCLE 
ANNREC 


CONTBLC 
LIiTFiC 
DECO 
#$4C 
L333 
FINFICA 


ERREUR 
SCAN 
ENVOI 
CLOTFIC 


CODEBLOC 
MOUTKCR 
#1 

NESSAàI 
MOUT 
NUABLOC 
NUMBLOC+1 
LINPTR 
ENVBLOC 
#11 
ATTENTE 
RECOIT 
La 


L310 
Lé 
L44 
£441 
# iniciaiise n° Elocs 
La4d411 
‘ attendre récepteur 
# émetteur veut annuler ? 
s oui 
; récepteur veut annuler 2? 
+ oui L45 
; nack = commencer 
; on femme 
d 2458 
# constitue le bïoc 0 
3 lit cout le Fichier FINFICH 
;: fin fichier ? FINO 
7 Ovi, le clore 
; non, afficher l'erreur 
+ envoie annulation 
; st le fermer 
; code le bloc 
FIN2 
+ Message 1 
i n° du bloc 
‘ et l'envoie 
; attendre acquiescement 
; émetteur veut abandonner ? 
FIN3 
; attend 10 X i seconde 
FINS 


L441 
L3i 
ANNEE 
SCAN 
La4 
ANNREC 
#NACK 
L45 
RESSAI 
NESSÂAI 
#11 
Ld411 
ANNEMEO 
MOUTKCR 
NESSAI 
#0 
LINPTR 
#2 


si 
NESSAI 
MOUTKCR 
#9 

MOT 
NESSAI 
#9 
LINPTR 
#EOT 
ENVOI 


#11 
ATTENTE 
RECOIT 
FINS 
KBD 
STROBE 
#$598 
FIN4 
WAIT 
ATTENTE 
ATTENTE 
FINS 
FIN2 


fCaN 
FIN4 
#ACK 
FIN4 


NESSAI 





oui 
récepteur veut annuler ? 


+ 


oui 
j récepteur n'a pas Compris ? 
/ oui, on recommence max 10 fois 


à 


- 


on réémet 10 fois maximum 


LT 


éffiche n° de l'essai 


“ 


{+ puis message 2 


puis numéro du bloc 


Lo 


récepteur à compris, 
; on Pésse au blec suivant 


on continre 


A 


; on annonce fin de transm 


; et on attend une réponse 


; on recoit CN ou ACK ? 


; 10 essais maxi 








LDA NESS2T 


Cp #11 

SE Le Téléchargement /Téléréception 
FIN4 JSR MOUTKCR 

LDA #4 

JSR MOUT Préfixe /UNIDISK3.5S/TRANS/ 


Do 


CLOTFIC JSR CLOSEFIL clore fichier BI H h . 
ocs libres sur ce disque : 126 
JSR DECONNE ; déconnexion du Minitel re jé q - 


JSR GETRET A = . 3 
UMP  ENVFICH Réception du fichier 


FICHIER.MAC.F 


ANNEMEO JSR MOUTKCR s or renonce 








LDA #7 
an mor Attente du bloc 0 
ANNÈME LOA #1 : annulatieit émetteur Bloc neçu à 
STA NESSAI Nombre de blocs à recevoir : 17 
ANNEMEI JSR MOUTKCR Emetteur : Macintosh 
LEA #5 
HER Ur Mercredi 14 Janvier 1987, 15:46. 
LDX NESSAI 
LDA 4e 
JSR LINPTR 
LDA CAN 
JSR ENVOI JSR CROUT 
C£C 
LDA #1i RTS 
STA ATTENTE 
A32 JSR RECOIT ; attendre acquiescement MOUTK LDY #43 
BCS A4 ; de l'annulatien MOUTO LDA MT2,Y ; affiche " * " avant chaque 
LD2 KBD ; émetteur veut abandonner ? JSR COUT 
BIT STROBE DEY 
CMP #$59B BPZ MOUTO 
BEQ A41 RTS 
JSR WAIT 
DEC ATTENTE MOUT IDY 4#$FF 
L&A ATTENTE MOUT1 INY ; message 
BER A40 CSP MPA,Y 
BPL A32 BNE MOUTI 
MOUT2 INY 
A4 C4P SCAN ; si annulation ou compris LDA MT1,Y 
BE@ Adi # => fini BPL MOUT3 
CMP #ACK JSR COUT 
BEQ 41 JMP  MOUT2 
MOUT3 RTS 
A40 INC NESSAI ; Siron, ot recommence 18 fois 
LDA NESSAI CONTBLC LDA fi ; prépare le bloc de controle 
CMP #11 STA BUFNC ; c'est vn Apple // 
BNE ANNEMEI LDY #2 
A41 JSR  DECONNE CONTO LDA  EUF,Y 
JSR CLOSEFIL STA BUFNC+80+12, Y 
JSR GETRET DEY 
JUMP  ENVFICH BPL CONTO 
LDY #9 
ANNREC JSR MOUTKCR ; message 3 CONT1 LDA PARLSTG,Y ; paramétres de GetFileïnfo 
LDA 83 — STA BUFNC+88,Y 
JSR MOUT DEY 
UMP CLOTFIC BPL CONTI 
LDA  LNGPATHN + et nom précédé de 1ng 
MOUTCR JSR CROUT STA BUFNC+80+16 
24F0- CD E5 F4 F4 E5 FA A0 EC 2560-— EE FS EC El F4 E9 EF EE 2500- 08 C1 EE EE EF EE E3 ES 
24F6- E5 A0 CD E9 EE E9 F4 ES 2568- 04 D4 F2 El EE F3 ED E9 25D6- A9 E9 ES AO E6'E9 EE A0 
2500- EC AO E3 EF F5 F3 AO F4 2570= F3 F3vE9vErF EE A0 F4 ES 25E0- Ed ES AO F4 F2 Ed EE F3 
2508- ES EE F3 E9 EF EE AC,A0 2576-°F2 EDlESGEE FBLES 05 Ci 2SE8= ED E9 F3 £3,Eñ EF EE AE 
2$10- FO F5 E9 F3 AE AE AE 00 2580- EE EE FS EC El F4 E9 EF 25F0- AE ÀE 00 A0 AA A0 A0 00 
2518- 01 CS ED E9 F3 F3 E9 EF 2588- EE A0 ES EE A0 E3 EF F5 25F8- 00 00 00 00 00 A2 27 A9 
2520- EE A0 E4 F5 AO E2 EC EF 2590= Fe FSLAC A6 ES F5'"FS ET 2600- AO 9D CF 07 CA 10 FA 60 
2528- E3 AC EE DB AO 02 FD ED 2596- E9 A0 EE DB A0 06 C1 F4 2606- 20.FD 25 A9 03 685 22 20 
2530- ES A0 F4 ES EE F4 El F4 25A0- F4 E5 EE F4 E5 A0 E4 F5 2610- 58 FC 20 EA 2F 20 FB DA 
2536- E9 F6 ES A0 FO EF F5 F2 252A6- A0 F27FB ES ESVEO F4 ES 2616- AD AE 35 8D 6E 35 20 54 
2540- A0 E2 EC EF E3 AO EE DB 25B0- F5 F2 AE AE AE 07 CB FB 2620- 2F 90 06 20 1E 32 4C 10 
2548- AO 03 D2 FB E3 E5 F0 F4 25B8- EC El F3 AC AO E9 EC A0 2628- 2E A9 0E 20 36 29 AD 65 
2550- E5 F5 F2 A0 El AO E4 E5 25C0- E6 EH F4/A0 F2 ES EE 2630- 2F 38 ED 68 2F 6D BA 2B 
2558- ED El EE E4 FB A0 El EE 25C8- EF £E E3 E5 F2 AE AE 4E 2636- AA AD 66 2F ED 69 2F 8D 





Pom's n° 28 





22 








TAY JMP VADEB 
INY RECO LDA #14 
CONT2 LDOA PATHNAME, Y JSR MOUTREC + l'affiche 
AND ##01111111 LDA AUXTYPG 
STA BUFNC+890+16,Y SEC 
DEY SBC BLOCKUS 
BSNE CONT2 STA FREEVOL ; garde place libre sur vol 
JMP DECO TAX 
LDA AUXTYPGs+1 
NOMFIC ASC "Nom du fichier à tranférer :" SEC BLOCKUS+1 
DFB8 O0 STA FREEVOL+1 ; id 
MESBLOC ASC ‘® blocs lui sont affectés." JSR LINPTR 
DFB  $8D, $8D 
MESBLOCM ASC "Mettez ie Minitel sous tension, puis..." iDA FREEVOL ; de la place sur ce vol. ? 
DEB 0 BNE RECOR 
LDA FREEVOL51 
MT1 DEB 1 BNE RECOR 
ASC “Emission du bloc n° "* LDA Æ#$7D 
DFB 2 — JSR ERREUR 
ASC "ème tentative pour bloc n° ” JUMP FINRECP 
DFB 3 
ASC "Récepteur a demandé annulation" RECOR JSR MOUTCR ; réception du fichier... 
DFB À LDA #1 
ASC “Transmission terminée" JSR MOUTREC 
DFB 5 JSR MOUTCR 
ASC "Annulation en cours, essai n° " LOA #10 ; limite fenetre 
DFB 6 JSR LIGNE 
ASC "Attente du récepteur..." LDA #11 
DFB 7 STA WNDTOP 
ASC "Hélas, 11 faut renoncer...” JSR HOME 
DFB 8 JSR CROUT 
ASC "Annonce de fin de transmission, ,," JSR CROUT 
DFB O0 INC WNDTOP 
MT2 ASC "me 
LOY  #>MESBLOCM 
ATTENTE DS 3 LOA FJ<MESBLOCH ; mettre Minitel sous tension 
NUMBLOC DS 2 JSR STROUT 
NESSAI 25 1 LDY  #>RECSTR 
LDA #<RECSTR : faire RETURN ou ESC 
EFFDATE LOX #39 ;: efface la date JSR STROUT 
LDA nr 
EFFDATEI STA $7CF,X RECSO3 LDA KBD 
DEX BPL RECS03 
BPL EFFDATE!l BIT STROBE 
RTS CMP 4#55D 
BEQ COM“! 
Ponmmrmierresrseete CMP #598 
#* RECEPTION DE FICHIER BNE RECSO3 
Ponnnnnmenmnmnaune JMP FINRECP 
RECFICH JSR EFFDATE COMM JSR HOME 
LDA #3 JSR CONNECT 
STA WNOTOP LEA 0 ; attend bloc 0 
JSR HOME STA. NUMBLOC 
JSR LITPREF STA NUMBLOC+1 
JSR  CROUT STA  DRAPBLO 
LDA  LNGPATHN 
STA  PATHNAME DEBREC  LDA. #1 ; initialise 10 essais 
JSR GFI ; place sur volume ? STA NESSAI 
BCC RECO LDA DRAPBLO 
JSR GETRET BEQ RECIIE 
2640- BB 2B 20 24 ED AD BA 2B 26B0- FO 05 A9 OA 68D FC 25 20 2720- 04 DO 03 4C 10 29 C9 19 
2648- DO OD AD BB 2B DO 08 A9 26B8- 16 35 A9 08 20 36 29 AE 2728- DO 03 4C FA 28 C9 O1 DO 
2650- 7D 20 D2 31 4C 29 29 20 26C0- FA 25 AD FB 25 20 24 ED 2730- 03 4C 5C 27 A2 OA 20 88 
2658- 5E 24 A9 01 20 36 29 20 26C8- A9 00 8D F7 25 8D F8 25 2738- 31 CA DO FA 20 A7 31 A9 
2660- 5E 24 A9 OA 20 30 21 A9 2600- 8D F9 25 AD FA 25 DO OA 2740- 15 20 9A 31 DO 9C 20 16 
2668-00B 85 22 20 58 FC+20 5B 26D8- AD FB 25 DO 05 A9 15 20 2748- 35 A9 09 20 36 29 20 SE 
2670- DA 20 FB DA E6 22 A0 24 26E0- 9A 31 20 A7 31 BO 38 EE 2750- 24 A9 19 20 9A 31 20 1C 
2678- A9 FO 20 3A DB AO 2A A9 26E8- F7 25 DO 08 EE F8 25 DO 2758- 35 4C 29 29 20 BB 30 EE 
2680- 26 20 3A DB AD 00 CO 10 26F0- 03 EE F9 25 AD F7 25 DO 2760- F7 07 A9 00 8D 87 31 20 
2688- FB 2C 10 CO C9 8D FO 07 26F8- 0E AD F8 25 C9 87 DO 07 2768- B7 31 B0O 03 4C ES 28 29 
2690- C9 9B DO FO 4C 29 29 20 2700- AD F9 25 C9 02 FO OC AD 2770- 3F 8D FE 16 20 B7 31 BO 
2698- 58 FC 20 E9 34 A9 00 8D 2708- 00 CO 2C 10 CO C9 98 FO 2778- 03 4C E5 28 29 3F 8D FF 
26A0- FA 25 8D FB 25 8D BC 2B 2710- 35 DO CF EE FC 25 AD FC 2780= 16 20%B7:31L:B0)03 301 E5 
26A8- A9 01 8D FC 25 AD BC 2B 2718- 25 C9 0B°D0 SA F0 27 C9 2788- 28 EE F7 07 20 B7 31 B0 
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LOA #10 BNE RECII 
STA NESSAI JSR RECOIT + vide carte au cas où 
LDA  #NACK 
REC11E JSR MOUTKCR ; message attente bloc n° JSR ENVOI 
LDA #8 BNE RECO0 
JSR MOÛUTREC 
ZLDX NUMBLOC RECREN JSR MOUTKCR ; récepteur abandonne 
LDA NUMBLOC+1 LDA #9 
JSR LINPTR JSR MOUTREC 
JSR WMOUICR 
LDA #0 LDA  #CAN 
STA ATTENTE JSR ENVOI 
STA ATTENTE+] JSR C2G 
STA ATTENTE+2 JMP FINRECP 
LDA NUMBLOC ÿ si bloc 0 envoÿer 
BNE RECOO + régulférement NACK RECBLOC JSR INITCOD + reçu SOH, c'est un bloc 
LDA NUMBLOC+1 INC $67F7 
BNE RECO00 LDA 40 
LDA PNACKX STA CHECKSUM 
JSR ENVOI 
JSR RECOITI 
REC00 JSR RECOIT attend gqchose 8CS RECSI 
BCS REC1 JMP  RECERR 
INC ATTENTE +: pendant 10 secondes RECS1 AND #&00111111 
BNE RECOO1 STA BUFC-2 { sauve n° bloc 
INC AITENTE*#i 
BNE RECOO!I JSR RECOITI 
INC ATTENTE#2 BCS RECS2 
RECO01 LDA ATTENTE JMP RECERR 
BNE RECOO2 RECS2 AND #800111111 
LDA ATTENTE+I STA BUFC-1 / sauve inverse n° bloc 
CNE 4135 
BNE RECO0Z JSR RECOITI + code inutile pour Apple // 
LDA ATTENTE+2 BCS RECBLOCI 
CMP #2 UMP RECERR 
BEQ RECO003 
RECBLOC1 INC S7F? 
RECO02  LDA KBD JSR RECOITI + réception du bloc 
BIT STROBE + si ESC on renonce BCS RECSS 
CÆ  F$95 JMP RECERR 
BEQ RECREN RECS5 LDY 80 
BNE RECOO STA  (COMPTC), Y 
CLC 
RECO03 INC NESSAI ADC CHECKSUM 
LDA NESSAI AND #%00111111 
CMP #11 STA CHECKSUM 
BNE RECIIE INC COMPTC 
BEQ RECREN + on abandonne après 10 essais BNE RECBLOC2 
INC COMPTC+1 
RECI1 CMP 4EOT ; on à reçu ECT ? RECBLOC2 LDA COMPTC 
BNE REC1A CMP  #SAC 
UMP  RECEOT BNE RECBLOCI 
RECIA CMP CAN # CAN ? LDA COMPTC+] 
BNE RECIB CMP 4519 
JMP  RECCAN BNE  RECBLOC1 
REC1B CMP 48SCH + début bloc ? LDA gr" 
BNE RECIC STA S$7F7 
JMP  RECBLOC 
JSR RECOITI s refoit checksum 
RECIC LOX #10 BCS RECSO4 
REC11 JSR WAIT ; autre chose 27 JUMP RECERR 
DEX ; attendre 9 secondes puis NZCK 
2790- 03 4C E5 28 A0 00 91 1A 2800- A9 0D 20 36 29 20 16 35 2870- A9 19 20 9A 31 20 16 35 
2798- 18 6D 87 31 29 3F 8D 87 2808- A9 09 20 36 29 20 5E 24 2878- A0 2B A9 76 20 3A DB 20 
27A0- 31 E6 1A DO 02 E6 1B A5 2810- 20 1C 35 4C 08 26 20 CA 2880- FB DA 20 82 32 20 1C 35 
27A8- 1A C9 ÀC DO DC A5 1B C9 2818- 30 20 16 35 A9 OA 20 36 2888- 4C 29 29 AD BB 2B CD 59 
27B0- 19 DO D6 A9 A0 8D F7 07 2820- 29 AD BC 2B FO 13 AD BD 2890- 14 FO 04 B0 OA 90 3E AD 
27B8- 20 B7 31 BO 03 4C E5 28 2828- 2B DO 03 20 SA 32 20 31 2898- BA 2B CD 58 14 90 36 20 
27C0- 29 3F CD 87 31 FO 03 4C 2830- 2D 90 03 4C A7 28 4C C5 28A0- D5 29 90 0E 20 D2 31 A9 
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RECS04 


RECS4 


RECSS41 


DEJAEU 


RECI4ANQ 


RSUITE 


SUITTRA 


RECENR@K 


RSUITEO 


#&00111111 
CHECKSUM 
RECS4 
RECERR 
BUFC-2 
#$00111111 
BUFC-1 
RECS41 
RECERR 
NUMBLOC 
#8001211111 
BUFC-2 
RSUITE 
RECMANQ 


BUFC-2 
NUMBLOC 
##00111111 
BUFC-2 
RECMANO 
#ACK 

ENVOI 
DEBREC 


#CAN 
ENVOI 
MOUTKCR 
#13 
MOUTREC 
MOUTKCR 

#9 
MOUTREC 
MOUICR 

C0G 

RECFICH 


DEBUDEC 
MOUTKCR 
#10 
MOUTREC 
DRAPBLO 
RSUITEO 
TYPEAPP 
SUITTRA 
DECUDMAC 
EF 
RECENROK 
ASSEZERR 
ASSEZ2 


FAITNOM 
AFFNOM 
MOUTKCR 
#2 
MOUTREC 
BUFNC+88 
BUFNC+89 
LINPTR 


MOUTKCR 
#3 


‘ 


S'SS 


Lo 


Lo 


… + 


; le vérifie 


; n° bloc vzlide ? 


vérifier n° bloc 


est-ce le précédent ? 


jf AON, on renonce 


oui, on 
gnvoie ack, boucler 
bloc déjà reçu 


on en à raté, renoncer 


CDG = clore fichier, déconnecter 
et attendre RETURN 


tvb, on décode 


bloc reçu 


bloc 0, on crée et on ouvre 


; enregistrer un bloc 


constitue le nom 
l'affiche 
affiche nb blocs du fichier 


ä recevoir 


quei ordinateur émet ? 


RSUITEO1 


ASS 


ASSEZ 


ASSEZERR 


ASSEZ11 


ASSEZZ 


ASSEZ1 


TROPEU 


ZDA 
«7SR 


MOUTREC ; on affiche son nom 


BUFNC 


#4 
MUTREC 


TYPEAPP 4 ge vient d'un Mec ? 


RSUITEO] 
BUFNC +94 
#4 
RSUITEO] 
WAIT 
#CAN 
ENVOI 
MOUTKXCR 
#>FICINC 
#<FICINC 
STROCT 
CROÛT 
BIP 

CDG 
FINRECP 


EM 


{ car 
inexploitable 


Lo 


c'est du texte ? 


non, alors annule 


FREEVOL+1 ; controle place disponible 


BUFNC+89 { poids forts 
ASS 

ASSEZ 

TROPEU 

FREEVOL ; poids faibles 
BUFNC*86 

TROPEU 


CREFIC + on créé le fichier 


ASSEZ211 
ERREUR 


FCAN 
ENVOI 
CDG 
RECFICH 


. 


problème à la création, 
on demande annulstion 


ELNGPATHN ; On ouvre le Fichier créé 


PATHRAME 
OUVREF IC 
ASSEZERR 
URAPBLO 
ASSEZ2 
DRAPBLO 
NUMBLOC 
ASSEZ21 
NUMBLOC+1 


#ACK + on acquièsce pour bloc 0 


ENVOI 
DEBREC 


#$570 pas de place 
ERREUR 


#fCAN ; on demande annulation 


ENVOI 
C0G 
FINRECP 
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RECERR 


RECEOT 


FINRECF 


MOUTREC 
MOUTRCI 


MOUTRC2 


MOUTRC3 


FAITNOM 


RECAO 


RECHOO 


RECH1 


RECH11 
RECH2 


JSR 


MOUTKCR 
#11 
MOUTREC 
# nn” 
S2F7 
ENACK 
ENVOI 
DEBREC 


MOUTKCR 
#12 
MOUTREC 


FINRECP 


SETFINF 
#ACK 
ENVOI 
MOUTKCR 
#15 
MOUTREC 
HHOUTCR 
CDG 
FINRECP 


85 
WNDTOP 
HOME 
LITPREF 
CAOIX 


#$FF 


MESSREC, Y 
MOUTRCI 


MESSREC, Y 
MOUTRC3 
cour 
MOUTRC2 


BUFNC 
TYPEAPP 
MAC 
BUFNC+36 
BUFNC+97,Y 
#580 

EAP 

REC#HI 


RECHO 


RECRI1I 
BUFNC+96 
RECROO 
#5FF 


: bloc mal reçu 


; reçu CAN 


; on acquièsce ec 
ÿ on annule aussi 


ÿ reçu EOT 

; on acquièsce 

; et on ferme 

; transnissien CK 


; affiche un message 


; Si MAC émétteur, on rencrmme 
; charge long Pathname reÇu 


+; tCronque au dernier éventuel / 


MAC1 


DAT EMAC 


DATEMACO 


DATEMAC1 


DATEMAC2 


FICMAC 


AFF NOM 


RECNM3 


CREFIC 


CREFICI 


EOFI 





BUFNC+397,Y 
#580 
PATANAME#1,X 
BUFNC+96 
RECH2 
PATHNAME 
LNGPATHN 


FICMAC j C'est un mac, cn Change ie nc 
FICMAC,Y  ; (caractères exctiques) 
PATHNAME, Y 


MAC1 
PATHNAME 
LNGPATHN 


BUFNC+160 ; affiche date 

BUFNC+160,X 

#0 4 en recodant carac du Mac 
ACCENT, Y 

DATEMAC1 


#66 
DATEMACO 
DATEMAC2Z 


ACCENT, Y 
#+10000000 
S7CF,X 


DATEMAC 


"FICHIER.MAC.A" 


59 +: affiche le nam reçu, tronqué 
GBASCALC 

PATHNAME 

PATHNAME ,Y 


(G8ASL) , Y 
RECNMI 


#$c3 

ACCESBT ; 

2 

BUENC+80+4,Y 

FILETYPE,Y ; type de fichier et 
; aux file type 


{unlock} 


CREFICI 

#i 

STORAGE ; stockage seedling en standard 
CREFICH 

CREFIC2 

#2 

BUFNC+92,Y ; sauve 1'EOF 

POSEOF, Y 
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BPL EOF1 FICINC ASC "Ce fichier Mac est ircampatible" 


RTS DFB $6D 
CREFIC2 CMP #597 ;: nom existe déjà 7 ASC " (seui le format TEXT convient)" 

BEQ CREFIC3 DFB S8D,0 

SEC 

RTS FREEVOL DS 
CREFIC3 LDX PATHNAME ; si oui, on incrémente ie dernier DRAPBLO DS 1 

INC PATHNAME,X ; caractère entre 0 et Z en évitant TYPEAPP DS 1 

LDA PATHNAME,X ; les codes interdits 

CMP gosn Émmmmmmmmmmmm—m—m— 

BEQ CREFIC4 * QUITTER 

CMP #SDB s est-ce un " SRE sen 

BEQ CREFICS 

STA  PATHNAME,X QUITTER JSR TEXT 
CREFIC31 JSR AFFNOM JSR HOME 

JUMP CREFIC JMP BASIC 


CREFIC4 LIDA "an 
CREFIC40 STA PATANAME,X 





BNE CREFIC31 * INPUT 
CREFICS LDA "Or De 

BNE CREF'IC40 INPUT LDX #0 

STX POSC +: position du curseur 

RECSTR DFB  S$8D, $8D, $8D, S8D 

ASC 4" <RETURN> = commencer la réception" LDY LONG + installe les points 

DFB S$8D LDA #",n" 

ASC " sur ce volume" INPOINT DEY 

DFB S$8D,$8D BEQ INCIAV 

ASC "# <ESC> = renoncer..." STA (GBASL),Y 

DFB 0 N BNE INPOINT 
MESSREC DFB 1 INCIAV  LDA #*j" ; initialise le curseur 

ASC "Réception du fichier : " STA (GBASL),Y 

DFB 2 

ASC "Nombre de blocs à recevoir : " INCLAVI LDA (GBASL),Y ; curseur clignotant 

DFB 3 EOR #1 

ASC "Emetteur : " STA (GBASL),Y 

DFB 4 LDX #52C ; dosage du scintillement 

ASC "Macintosh" INCLAVI1 DEX 

DFB 5 BNE INCLAViI 

ASC "Apple //" LDA K5D 

DFB 6 BEL INCLAVI 

ASC “IBM” BIT STROBE 

DFB 7 

ASC "Serveur Pom's" CMP #$98 ; esc ? 

DFB 8 BEQ INESC 

ASC "Attente du bloc " CMP #$88 + flèche gauche ? 

ASC "On renonce" BEQ INRETOUR 

DFB 10 CMP 4SFF +; del ? 

ASC "Bloc reçu” BEQ INRETOUR 

DFB 11 CMP #S8D ; return ? 

ASC "Réémission du bloc demsndée” BEC INVALID 

DFB 12 CPY LONG ; dernier caraC ? 

ASC "Emetteur renonce" BEC :INERR + oui, alors pas d'autre 

DFB 13 CMP gun Ÿ + À 

ASC "Bloc manquant” BCC INERR 

DFB 14 CMP #n/n 2 / + 

ASC "Blocs lfbres sur ce disque : " 8E0 SLASA 

DFB 15 CMP FA" ; une lettre ? 

ASC "Terminé, OK" BCC CHIFFRE 

DF8 0 AND #%11011111 ; convertit rinusc en MAJ 

CMP #$0B 2=" 

2B80- À0 CD El E3 A0 E5 F3 F4 2BF0- SB FO 44 C9 88 F0 51 C9 2C60- 2B 91 26 EE B6 2C C8 4C 
2B88- A0 E9 EE E3 EF ED FO El 2BF8- FF F0 4D C9 8D FO 6B €CC 2C68- D8 2B 8C B8 2C A9 A0 91 
2B90- F4 E9 E2 EC E5 8D À0 A0 2C00- B7 2C FO 2E C9 AE 90 2A 2C70- 26 CC B7 2C F0 03 C8 DO 
2B98- AO A0 A8 F3 E5 F5 EC A0 2C08- C9 AF FO OC C9 C1 90 0E 2C78- F6 AC B8 2C A3 00 99 8E 
2BA0- EC ES AO E6 EF F2 ED El 2040-w259 DF C9 DBV80 1C 90 459 2C80- 2C 88 30 08 B1 26 99 8E 
2BA8- F4 A0 D4 CS D8 D4 AO E3 2C18- CO 00 FO 45 DO 08 C9 BA 2C88- 2C 88 10 F8 18 60 00 00 
2BB0- EF EE F6 E9 ES EE F4 A9 2C20- B0 10 CO 00 F0 OC AA 88 2C90- 00 00 00 00 00 00 00 00 
2BB8- 8D 00 00 00 00 00 20 39 2C28- B1 26 C8 C9 AF FO 03 8À 2C98- 00 00 00 00 00 00 00 00 
2BC0- FB 20 58 FC 4C DO 03 A2 2C30- 30 2F 20 82 32 BO A5 AC 2CA0- 00 00 00 00 00 00 00 00 
2BC8- 00 8E B6 2C AC B7 2C A9 2C38- B7 2C A9 A0 91 26 88 10 2CA8- 00 00 00 00 00 00 00 00 
2BD0- AE 88 F0 04 91 26 DO F9 2C40- FB A9 00 8D 8E 2C 38 60 2CB0- 00 00 00 00 00 00 00 00 
2BD8- A9 A9 91 26 B1l 26 49 O1 2C48- AD B6 2C F0 ES CD B7 2C 2CB8- 00 20 58 FC A0 00 B9 ES 
2BE0- 91 26 A2 2C CA DO FD AD 2C50- DO 04 A9 AO DO 02 A9 AE 2CC0- 2C 99 00 02 C9 8D FO 03 
2BE8- 00 CO 10 F0 2C 10 CO C9 2058-0911 2688 CEvB6"2C 4C DS 2EC8- C8 D0 E3 20. 02 BE C9 06 
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BCS INERR 
BCC INLETTRE 


SLASH CPY #0 
BEQ INLETTRE 
BNE CHIFFREI 


CHIFERE CMP nc" 
BCS INERR 
CPY 90 
BEQ INERR 

CHIFFREI TAX 


LDA  (GBASL),Y 


CÆ pn/r 
BEQ INERR 


BMI INLETTRE 


INERR UJSR BIP 
BCS INCLAVI 


INESC LDY LONG 
LDA #"" 
INESC1 STA  (GBASL),Y 


BEL INESCi 
LDA #0 
STA BUFFIN 


INRETOUR LDA POSC 
BEQ INERR 
CMP LONG 
BNE INRI 
LDOA pr 

BNE INR2 

LOA #r,r 

STA ({GBASL),Y 


INR1 
INR2 


DEC FOSC 
JMP INCLAV 


INLETTRE STA (GBASL),Y 
INC POSC 


JMP  INCLAV 


INVALID STY TPS 
LOA pr" 
INVALIDO STA (GBASL),Y 
CPY LONG 
BEQ INVALIDI 


BNE INVALIDO 


INVALID1 LDY TES 
LDA #0 
STA BOFFIN,Y 


î 


î 
î 
î 


So Ve Ve ee ve 


LD 


D 


LD 


eo ve ee 


. 


> à Z 


/ est autorisé en premier 
caractère, mais pas après 


Un autre / 


c'est bien un chiffre ? 
non, c'est :;<=2>7 ou bien 
c'est le ler carac ? 

ovi, pas de chiffre 


sauve Carac 


le précédent est un / ? 


oui alors pas de chiffre 
ÿ restaure carac 


ok 


esc —-> Carry set 


ler carac 2 


ouf, Pas de retour 
si dernier, remplace 


par espace 


sinon par un point 


affiche carac 


on efface curseur 
et points restants 


finir la chaine par 0 


DEY 
BMI 
INVALID2 LDA 
STA 
DEY 
BPL 
INVALFD3 CLC 
RTS 
BUFFIN DS 
POSC Ds 
LONG DS 
TPS DS 


OKCATO JSR 
OKCAT JSR 


INVALID3 
(GBASL),Y 
BUFFIN, Y 


INVALID2 


40 


CA 


HOME 

‘0 
CMD, Y 
$200,Y 
#+58D 
CAT1 


CATO 


SBE03 

#6 
ORCATO 
#8 
OKCAT 
ERREUR 
GETRET 
HOME 
LITPREF 
CHOIX 


* CHERCHE DATE/HEURE 
* CREE FICHIER 


CREFICH JSR 


BCLC LDA 


#3 
SBF93, Y 
DATECRE, Y 


BCLC 


, 
i 


; stocke la chaine 


; quitte avec carry clear 


ee 


LT 


“ 


» 
î 

. 
i 
FA 


chaîne vide « rien à recopier 


Demande Catalog au 
Basic Système 

en stockant la commande 
dans buffer clavier 


Attend Return 


Réaffiche préfixe 
retourne au menu 


répubère l'heure 
3'{1 y à une carte 
horloge fnon testé) 
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PARLST 
ADPATHN 
ACCESET 
FILETYPE 
AUXFLTP 
STORAGE 
DATECRE 
HEURCRE 


1 
2 
DS ÿ 4 
DS 2 
DS 2 


* GET EOF 


MLI 
GETEOF 
PAREOF 
OKGET 
ERREUR 


DFB 2 








MI 
OPEN 
PARLSTO 
OKO 
ERREUR 


DFB 


OKO 
PARLSTO DFB 3 
PATANAME 


FILEBUF 


WRITE 
PARLSTW 
DKW 
ERREUR 
OKW 
PARLSTW 
REFNUNW 


2E20- 00 00 00 00 00 00 00 00 2E90- 00 00 00 00 00 00 00 00 2F00- 00 00 00 00 00 00 00 00 
2E28- 00 00 00 00 00 00 00 00 2E98- 00 00 00 00 00 00 00 00 2F08- 00 00 00 00 00 00 00 00 
2E30- 00 00 00 00 00 00 00 00 2EA0- 00 00 00 00 00 00 00 00 2F10- 00 00 00 00 00 00 00 00 
2E38- 00 00 00 00 00 00 00 00 2EA8- 00 00 00 00 00 00 00 00 2F18- 00 00 00 00 00 00 00 82 
2E40- 00 00 00 00 00 00 00 00 2EB0- 00 00 00 00 00 00 00 00 2F20=- D6 EF EC F5 ED ES5 F3 A0 
2E48- 00 00 00 00 00 00 00 00 2EB8- 00 00 00 00 00 00 00 00 2F28- ES £E A0 EC E9 E7 EE ES 
2E50- 00 00 00 00 00 00 00 00 2EC0- 00 00 00 00 00 00 00 00 2F30- A0 BA 8D AD AD AD AD AD 
2E58- 00 00 00 00 00 00 00 00 2EC8- 00 00 00 00 00 00 00 00 2F368- AD AD AD AD AD AD AD AD 
2E60- 00 00 00 00 00 00 00 00 2ED0- 00 00 00 00 00 00 00 00 2F40- AD AD AD AD AD 6D 00 DO 
2E66- 00 00 00 00 00 00 00 00 2ED8- 00 00 00 00 00 00 00 00 2F48- EF F2 F4 A0 00 AO CC ES 
2E70- 00 00 00 00 00 00 00 00 2EE0- 00 00 00 00 00 00 00 00 2F50- E3 F4 AO 00 20 00 BF C4 
2E78- 00 00 00 00 00 00 00 00 2EE8- 00 00 00 00 00 00 00 00 2F56- 60 2F 90 03 20 D2 31 60 
2E80- 00 00 00 00 00 00 00 00 2EF0- 00 00 00 00 00 00 00 00 2F60- OA 6E 35 00 00 00 00 00 
2E6868- 00 00 00 00 00 00 00 00 2EF8- 00 00 00 00 00 00 00 00 2F68- 00 00 00 00 00 00 00 00 
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ÿ créé le fichier 


: longueur logique du 
+ fichier 3 


+ ouvre le fichier 


; écrit un bloc de 
‘ 512 caractères 





* LIT FICHIER 


LETE IC 


PARLSTW 
OK£ 


SÈTEOF 
PARLST?7 
OKSETEOF 
ERREUR 
OKSETE®F 
PARLST?7 
REFNUM7 
POSE£EOF 


REFNUF 
REFNUMC 
MLI 
CLOSE 
PARLSTC 
RTS 
PARLSTC DFE 1 
REFNUMC DFB O0 


ONLINE 
PARLSTN 
ONLINEO 
ERREUR 
#15 

CNT 

CNT 


ONLINE 


ONLINED 


# iit un bloc de 512 
ÿ cèractères 


; en fonction de ls longueur 
+ logigve reçue. 

+ À défaut, la longueur 

+ physique (a X 512} serait 
; retenue 


+ cliot tout fichier 
+ sans préciser de n° 
+ de référence 


+ quels sont les 
? volumes en lignes ? 


Jexamine les 15 x 16 octets 





TAY ASC Mann " 

LDA BUFONLIN,Y ;entete ler lecteur DFB S$8D,0 

STA LNG ME SONO ASC “Port " 

AND #&00001111 DFB O0 

BEQ ERR slongueur = 0 3 MESON1 ASC M" Lect " 

LOX PO DFB O0 
ONLINEG LDA MESONO,X  ;envoie 'slot' 

BEQ ONLINEH A 

JSR COUT * GET FILE INFO 

INX a — 

BNE  ONLINEG 
ONLINEH LOA LNG GFI JSR MI ; récupères les fnfos 

LSR ‘récupère n° slot DFB GETFINFO ; sur un fichier 

ZSR DA PARLSTG 

LSR BCC OKG 

LSR JSR ERREUR 

AND #800000111 OxG RTS 

CRA ##810110000 PARLSTG DFB SA 

JSR COUT LA PATHANAME 

LDX #0 ACCBITG DS 1 # lect/écrit/renam... 
ONLINEE LDA MESONI,X ;envoie ‘drive FILETYG DS 2 + type de fichier 

B£Q ONLINEF AUXTYPG DS 2 j Daram auxiliaire (Ing par ex} 

JSR COUT STORAGG DS 4 + type de stockage 

INX BLOCKUS DS 2 ; nb de blocs affectés 

BNE ONLINEE HEURDAT DS 8 
ONLINEF ZLDA #ÿrir 

BIT LNG teste si drive 1 ou 2 a 

BPL ONLINE! * CHANGE PREFIXE 

LDA fn2r RE ue 
ONLINE1 JSR COÛT 

LDA #"" MODPREF JSR HOME 

JSR COUT JSR LITPREF 

LDA ENG MODPR LDA #7 

AND À$r STA CV 

STÀA LNG JSR VTAB 

LDA #"/r LDA #0 

JSR COUT STA CH 
AFF INY zaffiche nom volume LOY  P>MESMOD 

LDOA BUFONLIN, Y LDA  <HESMOD 

DORA ##10000000 JSR STROÛUT 

JSR COUT LDA #38 

DEC LNG STA LONG 

BNE AFF LDA #3 

LDA #$8D JSR GBASCALC 

JSR COUT INC  GBASL 
ERR DEC CNT JSR INPUT 

BPL ONLINED ECS OKCA + esC 7 

JSR GETRET LOY TPS 
VADEB JSR HOME BNE MODO 

JSR LITPREF JSR BIP 

UMP CHOIX BEC MODPR 

MODO STY  PATANAME + stocke long 

PARLSTN DFB 2 INC  PATHNAME 

DFB OO BEQO MODMLI 

DA BUFONLIN DEC GBASL 
BUFONLIN DS 256 MOD2 LDA (GBASL),Y 
CNT DS 1 INY 
LNG Ds 1 STA  PATANAME, Y 
MESONL DFB $6D DEY 

ASC "Volumes en ligne :" DEY 

DFE S8D 8PL MOD2 
2F70- 00 00 20 58 FC 20 EÀA 2F 2FE0- E6 E9 F8 ES A0 BA 8D 8D 3050- AG 01 0E 6B 35 2E 68 35 
2F78- A9 07 85 25 20 22 FC A9 2FE8- AF 00 20 00 BF C7 D2 2F 3058- 88 10 F7 AG 03 OE 6C 35 
2F80- 00 85 24 AC 2F A9 DS 20 2FF0- 90 03 20 D2 31 A9 03 85 3060- 2E 68 35 88 10 F7 AC 03 
2F88- 3A DB A9 26 8D B7 2C A9 2FF8- 25 20 22 FC A2 00 BD 22 3068- OE 6C 35 2E 69 35 88 10 
2F90- 09 20 47 F8 E6 26 20 C7 3000- 30 FO 06 20 ED FD E8 DO 3070- £s°7 AO O1 0E 6D 35 2E 69 
2F98- 2B BO 34 AC B8 2C DO 05 3008- F5 AD 6£E 35 8D AE 35 A2 3078- 35 88 10 F7 AC 05 OE 6D 
2FAO0- 20 82 32 FO D3 8C 6E 35 3010- 01 BD 6E 35 09 80 20 ED 3080- 35 2E 6A 35 88 10 F7 A0 
2FA8- EE 6E 35 FO OC C6 26 B1 3018- FD E8 CE 6E 35 DO F2 4C 3088- 03 B9 67 35 91 1A 88 10 
2FBO0- 26 C8 99 6E 35 88 88 10 3020- FB DA DO F2 FB E6 E9 F8 3090- F8 A5 18 C9 01 DO 07 AS 
2FB8- F6 20 00 BF C6 D2 2F 90 3028- E5 A0 00 20 BB 30 A9 FF 3098- 19 C9 16 DO 01 60 20 A4 
2FC0- 0E 48 20 FB DA 68 20 D2 3030- A2 03 9D 67 35 CA 10 FA 30À0- 30 4C 2E 30 18 A5 18 69 
2Fc8- 31 20 IE 32 4C 72 2F 4C 3038- AO 02 98 AA Bi 18 9 6B 3048- 03 85 18 90 02 E6 19 18 
2FD0- 10 2E 01 6E 35 CE EF F5 3040- 35 CA 88 10 F7 AO 05 CE 30B0- A5 1A 69 04 85 1A 90 O2 
2FD8- F6 ES El F5 AO F0 F2 FB 3048- 6B 35 2E 67 35 88 10 F7 30B8- E6 1B 60 A9 00 85 18 85 
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MODMLI JSR MLI CODEO STA D1,X 
DFB STPREFIX DEX 
DA  PARLSTCP BPL CODEO 
BCC OXCH 
PHA LDY £2 PREND 3 OCTETS À TRAITER 
JSR CROUT TYA 
FLA TAX 
JSR ERREUR CODE1 LDA  (COMPTNC) ,Y 
JSR GETRET STA S1,X 
JMP  MOBPREF DEX 
OKCH JMP  VADEB DEY 
PARLSTCP DFE 1 BPL CODE 
DA  PATHNAME 
MESMOD ASC "Nouveau préfixe :" LDY #5 #LEËS TRANSFORME EN 4 OCTETS 
DFB  SBD, $8D CODE3 ASL S1 :DE Di À D4 
ASC "/? ROL D1 
DFB 0 DEY 
De does BPL CODE3 
* LIT PREFIXE 
D LDY #1 
CODE4 ASL S1 
LITPREF JSR MLI ; le lit He 
DFB GTPREFIX DEY 
DA  PARLSTCP ELA CA 
BCC LIT 
JSR ERREUR ENS 
CODES ASL 52 
LIT LDA #3 ROL D2 
STA CV ce 
JSR  VTAB BRREUES 
LDY 43 
LDX +0 CODEË ASL S2 
LITO LDA MESSPR, X EUR, LE 
BEQ LITOO DEY 
JSR COUT BPL CODES 
INX 
BNE LITO IDY #1 
CODE7 ASL S3 
LITOO  LDA PATHNAME Er re) 
STA  LNGPATHN Les 
Lx #1 ; l'affiche | 
LITI LDA  PATHNAME,X 
oRA _ ##10000000 LANCE 
JSR COUT CODES ASL 53 
INX ROL D4 
DEC PATHNAME DEY 
BNE LIT BEL CODES 
UMP CROUT 
MESSPR ASC "Préfixe " PERS mot 
DER 0 CODES1 ID2 D1,Y 
STA (OREFTC),Y 
PRESS NE DEY 
* CODER UN BLOC Re 
Rmmmmmmmmmmmeswme…— 
LDA COMPENC ;ON À FINI LES 512 ? 
CODEBLOC JSR INITO0D so. 
BNE CODES 
DEBCOD LDOA #$FF ;OCTETS DESTINATION À 11xxxxxx DOARORENC EE 
Di De CMP #516 
30C0- IA A9 14 85 19 A9 17 85 3130- DO 01 60 20 A4 30 4C CD 31A0- 10 FO F6 66 61 08 60 A2 
30C8- 1B 60 20 BB 30 A0 03 A2 3138- 30 20 BB 30 A9 O0 8D 67 31A8- 00 A1 06 29 08 DO 02 18 
30D0- 03 BI 1A 9D 67 35 CA 66 3140- 31 A9 01 20 9A 31 AD FA 31B0- 60 A1 06 29 7F 38 60 A9 
30D6- 10 F7 AO 05 4E 6A 35 6E 3146- 25 09 CO 20 9A 31 49 3F 31B88- 00 6D DO 31 8D D1 31 20 
30E0- 6D 35 88 10 F7 AO 01 4E 3150- 20 9A 31 20 9A 31 EE F7 31C0- A7 31 90 01 60 EE DO 31 
30E8- 69 35 6E 6D 35 86 10 F7 3158- 07 A0 00 B1l 1A 20 9A 31 31C6- DO F5 EE D1 31 DO FO 60 
30F0- A0 03 4E 69 35 6E 6C 35 3160- 16 6D 87 31 6D 67 31 E6 3100- 00 00 6D 1D 32 20 FB DA 
30F8- 686 10 F7 AO 03 4E 68 35 3168- 1A DO 02 E6 1B AS 1A C9 31D8- 20 FB DA A9 00 85 24 A9 
3100- 6E 6C 35 86 10 F7 AO 01 3170- AC DO E3 AS 1B C9 19 DO 31E0- 14 685 25 20 22 FC A9 21 
3108- 4E 68 35 6E 6B 35 66 10 3178- DD AD 87 31 09 CO 20 9A 31E8- 20 ED FD A9 AO 20 ED FD 
3110- F7 AO 05 4E 67 35 6E 6B 3160- 31 A9 AO 6D F7 07 60 00 31F0- 20 62 32 AO FF C8 B9 E2 
31168- 35 66 10 F7 A0 02 B9 6B 3166- AO 0A A9 C6 20 A6 FC AD 31F6- 33 CD 1D 32 FO 04 C9 00 
3120- 35 91 16 86 10 F6 A5 18 3190- 00 CO €9 98 FO 03 86 D0 3200- DO F3 CB B9 E2 33 10 FA 
3128- C9 01 DO 07 AS 19 C9 16 3198- F1 60 468 A2 00 A1 06 29 3208- 20 ED FD C8 B9 E2 33 30 
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BNE CODES 
TE <OUX Octeis non codés 
CODES JSR CODEINC ;NON : INCREM $99 $79 $04 
MP DEBCOD lolol:{rlolof:] lolrlslrlrlolol:] lolololololrlolo] 
CODEINC CLC 
LDA  COMPTNC 
ADC #3 
STA  COMPTNC 
BCC CODE10 
INC  COMPTNC+1 ‘ à 
CODEI®8 CLC Elo lofolrTolol 
LDA COMPTC $57 $64 $44 
ADC #4 Octets codés 
STA COMPTC 
BCC CODE12 Le principe retenu pour le codage 
INC COMPTC+1 
CODEI1 RTS 
. ÿ LDY #3 
INETCOD nes nine DECODES LSR D2 
ROR 52 
STA COMPTC _. 
LDA  #>BUFNC DEL) ADDES 
STA  C@MPTNC+1 
LDA #>BUFC £DY 
SIA (COMETGEI DECODES LSR D2 
RTS ROR 51 
ER ne à DEY 
BEL DECODE6 
* DECODER UN BLOC 
HSE cit LDY #5 
DECODE7 LSR DI1 
DEBUDEC JSR INITCOD Fer si 
DEY 
DEBDECOD LDY #3 APL DECODE7 
LDX 43 
DECODEZ LDA (COMPTCJ,Y LDY 42 
STA D1,X DECODES LOA S1,Y 
DEX STA  (COMPINC) ,Y 
DEY DEY 
BPL DECODE1 BPL DECODES 
LDY #5 LDA COMPTNC 
DECODEZ2 LSR D4 CUP 41 
ROR 53 BNE  DECODE9 
DEY EDA COMPTNC+1 
BPL DEC@DE2 CMP #516 
BNE  DECODE9 
LDY fi RTS 
DECODE3 LSR D3 
ROR S3 DECODES JSR CODEINC 
DEY JMP  DEBDECOD 
BPL  DECODE3 
É mme memmmmmemmmememen om 
LDY 83 # ENV@I UN BLDC 
DECODE4 LSR D3 FORTE PRE 
ROR 52 
DEY ENVBLOC JSR INITCOD 
BPL DECODE4 LDA #0 
3210- F7 A9 AO 20 ED FD A9 21 3280- AÀ 00 98 48 8A 48 A0 40 32F0= DF°-DF: DPF DF DE DF DF 6F 
3218- 20 ED FD 38 60 00 20 FB 3288- 98 6A AA CA DO FD 2C 30 32F8- DF DF DF DF DF DF DF DF 
3220- DA'A9 15 685 25-20 22 EC 3290- CO 88 DO F4 386 68 AA 66 3300- DF DF DF DF DF DF DF DF 
32268- A9 00 85 24 A0 32 A9 SE 3298- A8 60 20 BB 30 A0 O0 B] 3308- DF DF 6D AO A0 A0 A0 A0 
3230- 20 3A DB 2C 00 CO 10 FB 32A0- 18 A2 00 DD 25 35 FO 13 3310- 2009, 0E 14 OS 12: 10 «OF 
3238- 2C 10 CO AD 00 CO C9 0OD 32A8- E8 E8 E0 42 DO F5 E6 16 3316- 0D 13.20 20 OD 09 0E' 09 
3240- FO 09 C9 1B FO OA 20 82 32B0- DO ED E6 19 AS 19 C9 16 3320- 14 05 OC 20 20 20 20 16 
3248- 32 BO EB8 20 55 32 18 60 32B8- D0 E5 60 E6 BD 25 35 91 3328- 20 31 2E 30 20 8D 8D 8D 
3250- 20 55 32 38 60 A9 14 20 32C0- 18 DO EB A9 15 20 ED FD 3330- AO AO AO A0 A0 A0 A0 A0 
3258- 22 FC 20 42 FC 60 AO A0 32C6- 2039 EFBN20 56" FC 20 71 3338- AO A6 E3 A9 A0 OO EF ED 
3260- AO A0 AA AA AA A0 A0 Ci 32D0- 2D A0 00 B9 E7 32 FO 09 3340- A7 F3 A0 A6 A0 C3 DO AO 
3266- FO FO F5 F9 ES FA A0 F3 32D8- 2C 30 CO 20 ED FD CB DO 3348- AD A0 B1 B9 BB B7 8D 68D 
3270- F5 F2 A0 A0 BC D2 C5 D4 32E0+ F2 20 1E 32 4C 00 20 8D 3350- 8D 8D AO A0 A0 A0 A0 D3 
3278- DS D2 CE BE AC A0 Aà 4A 32E68- AO AO A0 AO AO DF DF DF 3358-"EF.Fy9 F2°E3 ES A0»*D0 F2 
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STA CHECKSUM 
LDA 4#SOH 

JSR ENVOI 

LDA  NÜMBLOC 
ORA ##11000000 


JSR ENVOI 
EOR 4#$3F 
JSR ENVOI 
JSR ENVOI 
ENVO INC $7F7 
EDY 40 
LDA  (C8MPTC),Y 
JSR ENVOI 
CLC 


ADC CHECKSUM 

STA CHECKSIM 

INC  COMPTC 

BNE ENVI 

INC  COMPTC+1 
ENVI LDA  COMPTC 

CMP  #$AC 

ENE ENV® 

LDA  COMPTCsI 

CP 4519 

BNE ENV8 

LDA CHECKSUM 

CRA ##11000000 

JSR ENVOI 

LDA 4#$A0 

STA $7F7 


WaIT LBY 410 

W1 LDA 4#$5C6 
JSR $FCAS 
LDA KEH0 
CMP 459B 
BEQ W2 
MEY 
BNE W1 

w2 RTS 


CRE 


+ ENVOYER CARACTERE DE L'ACC 





… 


+ 


LEA 


D 





envGi code ASCII 1 


envoi n° Blec 


et en complément 


utile pour Mac d'aligner pair 


flash sur bas écran 
charge un caract 


l'envoie 


incrémente là somme 
de controie 


en envoie 684 en tout 


envoie ie checksum 


efface Das écrèn 





ENVOI PHè 
ENVOII LDX #0 

LDA  (STATUS,X) 

AND ##00010000 ; attendre libération de 


BEQ ENVOI1 ; la carte avant envoi 
PLA 

STA  ({DATA,X) 

RTS 


+ RECEVOIR UN CARAC DANS L'ACC 
+ CARRY CLEAR SI PAS DE C2RACT 


Ro es mm 


RECOIT LDX #0 
LDA  ({STATUS,X) 


AND ##00001000 
BNE OK 
CLC ; on revient bredouille 
RATS 
OK LDA (DATA, X) ; on à eu un caract 
AND ##O01:1111: 
SEC: 
RTS 
ee me 
* RECEVOIR 1 TARAC 
. SEC SI RECI 
* CLC SI FAS RECO AYENT X TPS 


a 


RECOITI LDA #9 


STA SYREC 
SIA STREC:1 

RECSITI1 JSR KECDIT 
ST LCIT2 
RTS 


RECIIFSZ INC SERX 
BX= RECUITII 
INC STREC+:1 
GNE KRECOITI1 


STREC DS 2 


* 





* ERREUR 
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ERREUR STA  CODERR 


JSR BIP 

LOY 6SFF 
ERREURI INY 

LDA ERREURS, Y 

CMP CODERR 

BEQ  ERREURO 

CMP #0 

BNE  ERREURI 


ERREURO INY 
LDA ERREURS, Y 
BPL  ERREURO 
ERREUR2 JSR COUT 


LDA ERREURS, Y 
BMI ERREUR2 
LDA B"" 

JSR COUT 

LDA #S21 

JSR COUT 


STA CH 

LDY  #>MESRET 
LDA  #<MESRET 
JSR STROUT 


RET1 BIT KBD 
BPL RETI 


BIT STROBE 
LDA KBD 
CMP  #$D 
BEQ RET3 
CME  6$1B 
BEQ RETS 
JSR BIP 
BCS RETI 


RETS JSR RETS 


RET4 JSR RETS 


RETS5 LDA #20 


MESRET ASC #" …. 
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Appuyez sur 


<RETURN> 


sn" 


BIP1 


BIP2 


DEC3 


DEC2 


RESET1 


RESET3 


RESET2 


MESRES1 


a 


#540 


BIP2 
HP 


BIPI 


INITCOD 

#0 

{COMPTNC} ,Y 
#0 

ACCENT,X 
DEC2 


#66 

DEC] 
COMPTNC 
DECO0 
COMPTNC+1 
COMPTNC +1 
#516 
DECO0 


ACCENT,X 
(COMETNC} , Y 
DEC3 


#21 ;: Vtile si Apple IIgs et 
COUT : 80 colonnes réactivée. 
TEXT j une page de pub.., 
HOME 

CLOSEFIL 


#0 
MESRES1, Y 
RESET2 

#P 


# INTERPOMS MINITEL vi," 
$8D,$8D,$8D 

. fc} Pom's & CP - 1987" 
$8D,$8D,58D, S8D 

" Source ProCODE, mode d'emploi” 
S$8D, SgD 











ASC " dans Pom's n° 28 Ke BPFL DECONNWEI1 



























DFB  $BD, $8D, $BD RTS 
ASC " Revue Pom's : (1) 35 51 24 43" $SDECONNE OFB 103,57,27 
DFB S$S8D,$8D 
ASC = e MOUTXCR JSR MOUTCR 
0EB 0 UMP. MOUTK 
ne CDG JSR CLOSEFIL 
+ MESSAGES D'ERREUR UJSR DECONNE 
Pense JMP  GETRET 
ERREURS DFB 3,8,527,$28,52F,SSA, 54 Pocommomsmsm—r— 
ASC ‘Erreur d'accès disque" #* CORRESPONDANCE MAC/APPLE // 
DEB 6,7,545, 546 * QUELQUES CODES SEULEMENT 
ASC ‘"Introuveble" | 
DFB 4,$28 
ASC "Disque protégé" ACCENT DFB CO," " + pas de O0 dans fich TXT 
DFB 540,544 DFE, 136,217 
ASC "Nam incorrect" DFB 203,"A" ; À 
OFB 17,548,S$S49 DFB 16?,"S" s 
ASC "Disque/directory saturé" DFB 165,"-* ; 
DFB $S4E DFB 141, "ç" 
ASC "Protégé en lecture" DEFB 142,°é" 
DFB $57 DEA 14777e" 
ASC "Deux volumes homonymes" DEB 1i57,°0" 
CFB $7D DEN 161, °°° 
ASC "Volume saturé" DFB 163,"#" 
DFB $7E DFB 164,°6° 
ASC "Le type ‘Catalogue! est interdit® DF8 144,°"e" i é 
DFB $7! DF8 145,°e" ; ê 
ASC "ProD0S est indispensaële" DED 149,"{j" eZ 
DFB 0 ŒS 149," alt 
ASC "Erreur 222" Sn 153,"0" : 
DFB O0 ŒS 154,°0° rs ë 
23 158,"u" ; à 
fsrsossmssie- ŒS 1S9,"u" ; à 
* INTERFACE //c ŒÆS. 206,"re FA 
a =. HS 267, °-° : æ 
23 92,162 # » 
DEUXC LDA #$38 3 200,162 D 
STA $47C 2F3 210,162 g-" 
LDA #$68 £ÆB 211,162 2" 
STA $547D 5 261,°.° "Et 
LDA #$81 ÆS 212,167 sr 
STA $4?7E 5 213,167 hi 
LDA 8$7C ES. 2C5,°-° = 
STA $42 Æ5 265,°-° = 
STA $3C LDF= 2:64," » + 
LDA 4 2Fs 2G2," * ; espace collant 
STA $43 
STA $30 $ 
STA $3F * STOCK 
LDA #$7E =, 
STA $JE 
SEC D1 0s z 
UMP SCc311 { auxmove 02 OS ?:1 
D3 0s 1 
CPR D4 Ds bi 
#* DIVERS Si Ds 2 
dammmmsm——— 52 DS 1 
53 DS 1 
CONNECT LDY #2 PATANAME DS 64 
CONNECTI LDA SCONNECT, Y LNGPATAN DS 1 
JSR ENVOI 
DEY 
BPL CONNECTI 
RTS 


SCONNECT DF8 104,57,27 




















a nn nn C’est bien Marcel Cottini qui est l'auteur de Cal- 
JSR ENVOI Rvuts, programme paru dans le numéro 26 de Pons et non P. 
Er Neveu, comme le laissait supposer la signature. Cette mauvaise 
er ao LE attribution de paternité est imputable à un montage ‘rapide’. 

Re Rappelons que Marcel Cottini est auteur de plusieurs ouvrages 

tn Cr concernant l’Apple // (éd. Sybex, P.S.I.) et qu’il avait dé à signé 
JSR ENVOI des pages de Pom's. 
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CopyBasFiles, fichiers & ‘RAM? 


Vous savez que ProDOS crée au- 
tomatiquement un disque virtuel 
dans l'espace mémoire de la carte 
80 colonnes étendue, disque bap- 
tisé /RAM. Il est donc tentant d'y 
recopier, lors du ‘boot’, la majo- 
rité des programmes d'une dis- 


Il ne fonctionne, bien sûr, que 
sur //e ou //c, et se lance par un 
simple RUN. Il demande, pour 
chaque programme rencontré, si 
on désire qu'il soit recopié ou 
non. Le fichier EXEC créé 
s'appelle WORKFILE. Ainsi une 


François Dreyfuss 


/RAM comprend moins de blocs 
disponibles qu'une disquette 
140Ko.. il sera donc parfois né- 
cessaire d'effectuer une sélection 
impitoyable des fichiers qui 
devront être copiés. La ligne 164 


quette ; par la suite, en lesrecher- simple instruction : de COPYBASFILES contient 
chant par priorité sur le disque PRINT CHR$ (4) "EXEC l'instruction de test sur le type de 
virtuel, les temps de chargement WORKFILE" Pr modiez en consé 


seront extrêmement courts. 


Le programme COPY BASFILES 
crée un fichier EXEC qui recopie 
les programmes Applesoft d'une 
disquette vers le volume virtuel. 


à la fin de votre programme de 
STARTUP alimentera votre dis- 
que virtuel. 


Techniquement, il ne faut cepen- 
dant pas oublier que le volume 


quence si vous ne désirez ne 
recopier que les fichier binaires, 


par exemple. G 





Programme es AS 
COPYBASFILES 420 REM I+l BASIC FILES 
510 IF I < O THEN END 
0 TEXT : HOME 512 GOTO 900 
1 PRINT "CREATION FICHIER EXEC POUR COPIE 19 REM BUILD AN EXEC FILE USING LOAD 
DES" 520 ES = "WORKF ILE" 
2 PRINT "FICHIERS BASIC VERS DISQUE VIRTU 30 IF I> = 0 THEN 532 
n 531 PRINT "PAS DE FICHIER": END 
3 PRINT : PRINT 532 PRINT DS;"OPEN ";:ES: PRINT DS$S;"CLOSE 
5 DIM L$(40) "ES 
10 D$ = CHERS (4) 533 PRINT D$;"DELETE ";ES$ 
11 PRINT DS"PREFIX" 540 PRINT DS; "OPEN ";ES 
12 INPUT XXS:S$ = MIDS (XXS,2,( LEN (Xxs 90 PRINT D$;"APPEND ";E$ 
j = 21) 560 J=I 
13 PRINT "PREFIXE ORIGINE = "XXS 565 GOTO 590 
15 MMS + At + SS 570 PRINT "PREFIX, D1" 
16 PRINT "PREFIXE ARRIVEE (DEFAUT-/RAM/): 980 PRINT "PREFIX ";S$ 
n 590 FOR I = 0 TOJ 
17 INPUT R$: IF R$ = "" THEN RS = "/RAM" 600 PRINT "LOAD ";MMS$;LS$(I) 
18 MMS = MMS + "/": IF RIGHTS (R$,1) < > 700 PRINT "SAVE "R$;LS$(I) 
HA THEN RS = RS + GAL 710 NEXT I 
19 PRINT : PRINT "REPONDRE <N> SI FICHIER 725 PRINT "NEW" 
INUTILE" 730 PRINT "CAT" 
80 PRINT : PRINT "LECTURE DIRECTORY "SS$S 750 PRINT D$;"CLOSE ";E$ 
85 US = "/" + S$S 800 PRINT "FICHIER ";ES;" PRET" 
86 5$ = US 810 END 
90 PRINT DS;"OPEN ";S$;" ,T15" 850 PRINT "ERREUR #" PEEK (222) 
100 PRINT DS$;"READ ";S$ 855 POKE 216,0: RESUME 
120 1=0 860 END 
130 ONERR GOTO 400 900 J= -1 
150 INPUT LS(I) 910 FORK=0 TOI 
160 ES(I) = MIDS (ES(T),2/29) 920 PRINT "RECOPIER ";LS(K); 
162 T$ = RIGHTS (LS(T),3) 930 GET Q$: IF QS < > "N" THEN QS = "O" 
164 IF TS < > "BAS" THEN 168 935 PRINT Q$ 
165 LS$S(I) = LEFTS (LS(I), 16) 940 IF Q$ = "N" THEN 980 
167I1-1I+1 950 J=J +1 
168 REM 960 LS(J) = LS(K) 
180 GOTO 150 980 NEXT K 
400 PRINT DS$;"CLOSE ":5$ 9851 =J 
405 ONERR GOTO 850 990 GOTO 515 
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Messages et Basic.System 


Jacques Rey 


Le DOS 3.3 nous avait habitué à 





Désassemblage PRINTERR.BAS.S 
(Assembleur ProCODE) 


ARRRRARÉTSSSSSSSSÉSHSRÉSÉSRSÉARASARE 


beaucoup de fantaisies de * Désassemblage de la routine  * 
structure et de nombreux + d'affichage des messages  * 
‘ , , gs d'erreur de Basic.system * 
patches” le rendait souvent , Ho ral UR 


incompatible avec lui-même. 
Avec ProDOS et BASIC. 


thrkskésiééisétésésesisiisesisesésts 


* 


SYSTEM ces petits jeux sont org S9%4E 

finis, place à la rigueur. ; cout = $SFDED routine de sortie de caractères du moniteur 

Il reste tout de même un petit comptcar = $BE48 “drapeau de comptabilisation de caractères 

point qui mérite d'être modifié dercar = $BCB6 s drapeau indiquant la position du dernier 

sans toucher à la cohérence du ORDRE ONEIMpE "+ 

système : NOUS pouvons franciser bufim£r = $0201 sles caractères du message y sont stockés avant 

ê :l'appel de “cout”. 

les messages de BASIC. deomess = SB8A13 stable indiquant le début de chaque message 

SYSTEM. caract = SBA28 table de 30 caractères et signes constituant lies mots 
messcod = S8448 stable des messages codés 


Or, dans ce domaine aussi, les 
choses ont bien changé. Dans 


#2#trtttttt ROUTINE PRINTERROR #*#*#%#s2s2s 


DOS 3.3 il était facile de printerr ee _. - ;A UE an pue Le l'erreur {$02 à ee 
: ; , ess, spointe sur le ut du message correspondant 
visualiser l ensemble des JSR debut saut à la routine récupérant les caractères 


messages avec un éditeur de 
secteurs (Disk Fixer, Mobby-disk 
de Pom's) et de les modifier 


###* FIN : impression et retour 


di t t l' fin LDX  conptcar combien de caractères compte ce message ? 
1rectemen pour peu que on STX  dercar :je range ce nombre pour plus tard 
respecte la longueur des phrases JSR return sun CR à vide pour détacher le message 
d'origine. dong LDA #587 scaractère BELL pour faire un peu de bruit !{ 
JSR affiche 
printcar LAXY  #500 son se place au début du buffer 


Un tel examen de Basic.System 
ne révèle qu'un ou deux 


Jboucle LDA  bufimpr,X ‘et un caractère svp ! 
JSR affiche 


messages ; où sont donc passés . è tearacPèse nn ne 
ercar ;sn'est ce point Île dernier ? 
les Syntax Der et autres Path de lis TS 
Not Found ‘ return ZDA  #$8D spour finir 11 faut un CR 
affiche JM cout sc'est par là que le tout se retrouve à l'écran 


Les concepteurs du système, 
soucieux d'économiser la place, 
ont adopté une astuce qui peut 


FE DECODE 


debut LDY 8500 


rendre de grands services au c£c sinitialisation C = 0 
programmeur qui doit afficher STY  comptcar ;remise à zéro du compteur de caractères 
: bouclel JSR  decode sseut à la routine qui lit la table des messages 

beaucoup de texte : les mots sont BNE litcar ;5i le 1/2 octet n'est pas nul c'est un des 15 
codés à raison de deux caractères spremiers caractères de la table. 
par octet, chaque demi-octet JSR  decode :si non on récupère le 1/2 octet suivant 
servant de pointeur de position ORA 8510 auquel on ajoute $10 pour lire l'un des 15 

2, scaractères suivants de la table. 
dans une table alphabétique. litcar TAY le résultat de ci-dessus sert de pointeur de 

stable. 
Un exemple LDA caract,Y  ;et voila un caractère ! 
, Si BEC sortie :si NUL c'est la fin du message 
Soit la table alphabétique  ,, 
nge LDY conptcar 


suivante : 


STA bufimpr,Y ;on range le caractère trouvé dans le tampon 


$1000 x: 00 C1 "CZ CSNCIRCRA CRC D CLR CARPON NL D3 DJ A0 00 


caractère pe A 
position DROMNT 


B 
2 


É' JU COM N OCR. Se Ü. esp 
3 MUST CHA ERA HD C Dl € F 


ER — 
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Et le message codé ci-dessous : 
$1100:29 85 9D BE A9 7E CF 


Chaque demi-octet donne la 
position d'un caractère ce qui 
nous donne : 


BONJOUR POM S 


Nous avons utilisé sept octets 
pour treize caractères, soit 
presque moitié moins. 

En fait, l'économie n'est pas 
toujours aussi importante pour 
deux raisons. 


D'une part, il faut terminer le 
message par un demi-octet 
pointant sur un caractère nul pour 
permettre à la routine de décodage 
de comprendre que la phrase est 
terminée (le F du dernier octet de 
l'exemple pointe sur la valeur 
00). Dans le cas d'un message 
comportant un nombre pair de 
caractères et espaces il faudra 
utiliser un octet supplémentaire. 


D'autre part un demi-octet ne peut 
adresser que quinze caractères (la 
valeur zéro est exclue, nous 
allons voir pourquoi) ce qui est 
peu pour constituer des phrases 
complexes. A joutons donc seize 
autres caractères à la table, 
auxquels nous accèderons de la 
façon suivante : dès que la routine 
de décodage rencontre un 
demi-octet égal à zéro, elle 
récupère le demi-octet suivant et 


Comment 
utiliser Pom’s ? 


Pour les lecteurs qui ont pour la première 
fois Pom's dans les mains, voici 
quelques élémenis pour en utiliser plus 
rapidement le contenu. 


Chaque numéro de Pom's est accompagné 
de manière optionnelle d'une disquette 
regroupant tous les programmes, 
disquette disponible par correspondance. 


Si vous n'avez pas la disquette, saisissez 
les programmes Basic et sauvegardez.les 
sur une disquette DOS ou ProDOS selon 
indication dans l'article par : 

SAVE NOM_DE PROGRAMME 


Pour saisir les récapitulations de codes 
machine (issus des sources en 
assembleur), passez en moniteur par : 
CALL -151 


puis entrez les codes ainsi : 
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&ME bouclel 
sortie RTS 


decode LDA 


branche toujours 
sreteur à l'envoyeur pour affichage 


messcod,X récupération d'un octet représentant 2 caractères 


BCS  mibas :4C = l c'est le tour du 2 ème caractère 

B£EQ  tabul sl'octet est nul le suivant est une tabulation 

ISR 

LSR 

LSR 

LSR spour ne conserver Que la partie haute de 
;sl'octet. 

SEC spositionne C pour la récupération de la partie 
sbasse. 

RTS 

tabul INX slecture de l'octet suivant 


LOA messcod,X cet octet est considéré comme une tabulation 


STA conptcar 


sil est placé dans “comptcar" 


INX spour lire ies caractères suivants 


BNE  decode 


sbranche toujours 


mibas INX sprépare X pour Ia lecture du couple de caractères 
AND #s0r Dour ne conserver que la partie basse de l'octet 
CLC spour la lecture de l'octet suivant 
RTS 


lui ajoute la valeur $10. La valeur 
du pointeur s'étend alors de $01 à 
$16 soit 30 caractères ou signes 
(la valeur $10 est exclue) ce qui 
suffit à la majeure parte des cas. 


Dans Basic.System, nous 
trouvons en $BA728 la table de 
caractères et signes, en 
$BA4/$BB46 la table des 
messages codéseten $BA13 une 
table qui donne le début du 
message en fonction du code de 
celui-ci. 

Ces tables sont exploitées par une 
routine appelée ‘PRINTERR' 


2000 : A2 14 86 08 A2 60 86 09 


et non pas comme cela : 
2000- A2 14 86 08 A2 60 86 09 


Revenez alors au Basic en faisant 
CTRL-C. L'ordre de sauvegarde est 
indiqué au début de chaque récapitulation. 
À la place de la récapitulation, vous 
pouvez saisir le source en assembleur si 
vous disposez d'un programme 
assembleur (Lisa, Merlin, Procode, 
Tooltit...). Assemblez. Le code généré 
est identique à celui de la récapitulation. 


Si le programme est écrit en Pascal, 
vous devrez le saisir avec l'Éditeur Pascal 
(menu principal Pascal, demandez ‘E'). 
Cormpilez, puis exécutez en faisant X. 


Si vous avez la disquette Pom's 
(actuellement encore formatée en DOS 
3.3), plusieurs cas se présentent : 


Le programme fonctionne sous DOS 3.3, 
faites simplement : 

RUN PROGRAMME 

ou: 


située à parkr de l'adresse $9F88, 
que vous trouverez ici 
désassemblée et commentée 
(assembleur ProCODE). Ii suffit 
de placer le code de l'erreur dans 
l'accumulateur et d'effectuer un 
JSR $9F88 pour afficher le 
message correspondant, les codes 
valides vont de $02 à $15, de 
plus le code $24 affiche le 
copyright Apple. 


Ces quelques éléments 
permettront à ceux qui le désirent 
de modifier ou franciser les 
messages facilement. 


BRUN PROGRAMME 
selon qu'il s’agit de Basic ou de 
progranvne en langage machine. 


S'il fonctionne sous ProDOS, 
convertissez-le à ce format en utilisant 
‘CONVERT' de la disquette Système ou 
en utilisant la disquette ‘Utilitaires 
Système’ dans l'option ‘Copier des 
fichiers’. Maintenant installé sur une 
disquetie ProDOS, le programme sera 
lancé par : 

— PROGRAMME 

Si le programme est écrit en Pascal, 
vous le convertirez au format Pascal à 
l'aide de l'utilitaire ‘BASIC-PASC AL qui 
est sur chaque disquette Pom's. Avant 
conversion, ayez une disquette formatée 
Pascal à disposition. 

Bien entendu, si vous vous heurtez à une 
difficulté dans l'exploitation des 
programmes de Pom's, n'hésitez pas à 
prendre contact avec un technicien au : 
(199 29 51, 24 43 


Î{ n'écrira pas vos programmes, mais il 
vous dépannera. 
















CL «AN 


Word est une marque déposée par Mrcrosoft Wriler Plus est une marque déposée par AC. 






Gutenberg et ses associés, des gens 
très perfectionnistes au demeurant, 
n’hésitant pas à regarder à la loupe le 
moindre détail, n'avaient pourtant 
fait que la moitié du travail. 

Le pouvoir de l'édition c’est bien, 
pouvoir éditer soi-même, c’est mieux. 


C'est d’ailleurs le seul moyen de 
pouvoir parvenir à la vraie liberté d’ex- 
pression. Cela Gutenberg n'y avait pas 
songé. 

En toute bonne foi, il croyait fer- 
mement dans les vertus de la vis à 
bois et d’une imprimerie pour tout le 
monde. 


Gutenberg 1395-1468 
a inventé l'imprimerte. 


légèrement améliorée de la presse en 
bois sans la puissance et les capacités 
graphiques de Macintosh Plus. 


Chez Apple, nous croyons aux res- 
sources de l'individu et à l’édition 
personnelle. 

Par contre pour créer son atelier, 
Macintosh a fait comme Gutenberg, il 
s'est associé avec la “Laser Writer? 
l’inprimante à laser d'Apple. A la 
seule différence que si 31 assistants 
se bousculent autour d'une presse, 

31 Macintosh reliés par AppleTalk se 
partagent aisément une Laser Writer. 

Mais, malgré son million d'octets de 
mémoire morte (extension LaserWriter 
Plus) et sarésolution de130 points/cm, 
la Laser Writer ne serait qu'une version 
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Apple Computer France, Avenue de l'Océas 








‘aura pas le dernier mot. 
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C'est-à-dire, un méga-octet de 
mémoire extensible à 4 méga-octets, 
un nouveau lecteur de disque interne 
double face 800K et en option un dis- 
que dur de 20 méga-octets, ce qui 
permet de stocker des milliers de 
pages de documents. 

Et comme toujours, Macintosh Plus 
met à votre disposition tous ses fameux 
outils de bureau, pour couper, coller, 
remodeler le texte, choisir les carac- 
tères, mélanger texte et dessin, etc. 


MaDraw 


Au commencement de l'édition, 
il y a l'écriture: avec des logiciels de 
traitement de texte comme MacWrite, 
Word ou Writer Plus, le vrai problème 
des auteurs c'est l'inspiration. 


Page Maker 


! ZA de Ceurabæuf, 8.8 131, 91944 Les Ulis Cedex 








Le texte si brillant soit-il ne suffit 
pas. Avec MacPaint et MacBraw pour 
illustrer, tracer des schémas et des 
dessins techniques, définir des cadres, 
avec un logiciel comme Page Maker 
pour organiser et mettre en page, vos 
rapports d'entreprise, vos formulaires, 
vos manuels, votre journal interne, 
pour ne citer qu'eux, laisseront de vous 
une excellente impression. Et vous 
pourrez toujours tout modifier, y 
compris à la dernière minute! 


MaDrau 


MacWrre 





Pour Appie, il n'y a pas de petits 
et de grands écrivains, de littérature 
de bureau et de littérature tout court: 
tout le monde est logé à la même 
enseigne, celle de la qualité. 

Avec la LaserWriter, une impression 
impeccable est à la portée de tous. 
Elle vous propose en effet onze 
familles de typographies (extension 
Laser Writer Plus), imprime sur papier, 
sur calque ou sur transparents et 
fournit des documents de qualité 
bromure. 


LaserWriter 


Et si vous voulez vraiment faire 
les choses en grand, Macintosh peut 
aussi se connecter directement à une 
photocomposeuse d'imprimerie. 


En fait, Apple ne vous offre rien 
de plus que votre imprimeur, sauf 
que vous n'aurez pratiquement plus 
besoin de lui. 

Désormais, c'est vous, l'éditeur, 
qui éprouverez la sensation de 
Gutenberp il y a 436 ans lersqu'il 
contempla son premier document. 

C’est ainsi qu'Apple vous offre le 
meilleur de vous-même. 








Macintosh est une marque sous licence chez Apple Computer, Inc Apple, le logo Apple, LaserWriter, Apple Talk, MacWrite et MacDraw sont des marques déposées d'Apple Computer. Inc Page Maker es une marque déposée d'Aldiis Corps 











Record Holder 


Vendu jusqu'au 30 septembre aux 
États-Unis au prix introductif de 
$49.95, ce programme devrait au- 
jourd'hui coûter $20 ou $30 de plus, si 
la politique initiale a été maintenue. 
C'est un excellent gestionnaire de 
fichiers sans prétention, que j'ai appris à 
utiliser en moins d'une heure, aidé en 
cela par plus de 100 écrans d'assistance. 


Les types de rubriques sont : text, 
nombre, monnaie, date, calculé et 
statistique (comptage, total et 
moyenne). Champ de texte : 32Ko 
maximum par information. Nombres 
jusqu'à 18 chiffres significasfs. Nombre 
maximum de fiches : limité par le 
support magnétique (jusqu'à 16 Mo sur 
un disque dur). Importation et 
exportation avec MacWrite. La copie 
d'écran ci-contre monire bien ce que 
donne Record Holder. 


Nous avons récupéré, sans difficulté et 
en transitant par MacWrite, un fichier 
File de 270 enregistrements. Seul 
problème de transition : les virgules 
dans l'adresse (3, rue du Port) étaient 
interprétées comme des séparateurs de 
zones d'information, il a donc fallu, 
dans une seconde passe, les transformer 
en espaces, pour relire le fichier 
proprement dans Record Holder. À titre 
de comparaison, ce fichier se trie en 30 
secondes dans File, et en moins de 15 
dans Record Hoider qui, par contre, ne 
fait des tris qu'en vue de l'impression ; 
heureusement, celle-ci peut être simulée 
à l'écran. 


Avantages : 


- il est très facile de rajouter une 
rubrique; 

+ la mise en page d'une fiche est aussi 
facile qu'avec CX Base ; 

+ on peut voir à la fois la liste des 
fiches etune fiche particulière ; 

+ possibilité de choisir la police, la 
taille et le style de toute rubrique ; 

+ les champs calculés se construisent 
très facilement ; 

- la gestion d'index avertit des dou- 


Herz, Drive] - HAIFA 


Jost, Rolan# Ordico 
Le Peche - E.PE. 


blons et les tolère éventuellement ; 

+ pas de protection, donc pas de 
problème avec un disque dur ; 

+ et, enfin, l'apprentissage est très 
rapide. 

Inconvénients : 

+ pasdedisaufpour l'impression ; 

+ l'impression d'étiquettes par 2 ou 3 
de large n'est pas prévue ; 

+ pas d'importation d'images ; 

+ pas de décoration graphique des 
fiches. 


Conclusion 


Il y a peu de critiques à faire, en regard 
des avantages. Voilà donc un pro- 
gramme de gestion monofichier de 
grande qualité, à un rapport 
performance/prix le mettant hors 
CONCOUTS. 


Software Discoveries Inc, 99 
Crestwood Road, Tolland, CT 06084, 
USA. Version US. 


A B sCenes 


Alliant graphismes et sons, ce sont 
trois programmes de niveaux différents 
pour l'apprentissage des lettres et des 
mots simples auprès des enfants, de 2 à 
4 ans selon la publicité, de 3 à 6 ans 
selon la documentation (?). Dans le 
premier jeu, une scène animée illustre 
chaque lettre de l'alphabet, mettant en 
jeu un objet ou un personnage ayant 
cette lettre pour initiale. Dans le 
second, il faut taper la première lettre du 
mot correspondant à l'image apparais- 
sant sur l'écran. Le troisième jeu 
demande la frappe du mot entier, 


Publication : 
Nom de la revue 
Volume/Numéro 


les variables 
servant d'index 


d'utilisation d'Excel. Dernier 
hapitre sur les bogues d'Excel. 





toujours un mot simple. 

Cette disquette est un bon exemple 
d'outil pédagogique simple et bien 
ficelé, en particulier par la variété des 
animations sur écran. À noter que la 
collection de Computeach comporte, 
pour diverses tranches d'âges et toujours 
au même prix, des disquettes 
d'arithmétique, de jeux de mots, 
d'apprentissage de signes, et même de 
création de scénario. Seule ABC 
cependant est disponible sur 
Macintosh ; certaines des autres 
n'existent que sur IBM PC. 
Computeach, 240 Bradley Street, New 
Haven, CT 06511, USA. 

Macintosh -— Apple II -IBM PC 
- Prix $ 39,95. 





Les registres du +... 


… Où plutôt le contenu des registres du 
MC68000 qui équipe votre Macintosh 
Plus, peut être, comme la mémoire 
(voir le numéro 27 de Pom's, page 42) 
visualisé : 

*+ appuyer sur la 
‘INTERRUPT ; 

+ taper ‘DO’ suivie d'un retour-chariot 
— le contenu (en hexadécimal) du 
registre d'adresse DO apparaît ; 

+ mêmechose pour les autres registres 
de données (DO à D7), ainsi que pour 
les registre d'adresses (AO à A7, A7 
étant le pointeur de pile) ; 

+ la valeur courante du registre d'état 
peut être obtenue en tapant ‘SR’ 
{Statut Register) ; 

+ ceile du compteur ordinal en tapant 
‘PC’ (Program Counter) ; 

+ _‘G” provoque le retour au programme 
courant. 


touche 
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InterPom’s 


Téléchargement via MINITEL 


Jean-Luc Bazanegue 


InterPom's permet la transmission de n'importe quel type de é Frmer iétme ose 
fichier ou application, entre deux Macintosh — ou entre un 
Macintosh et un Apple // avec le programme compamble 
proposé page 15 — en utilisant le modem incorporé au 
Minitel. Le système utilise le même câble que le programme 


ee 


InterPom’s 








| Autres programe: 
(724Ke Mères) 


du précédent numéro de Pom's permettant, entre autres, le ea 


stockage et la restitution des écrans du Minitel ; si vous n'avez 
pas encore réalisé ce petit montage, nous joignons à cet article 
un schéma qui vous permettra de le réaliser, le détail du 
montage se trouve aussi dans le numéro 27. Si vous ne 
trouvez pas les connecteurs nécessaires à la réalisation ou si 
votre emploi du temps me vous permet pas de faire le montage 
vous-même, il est désormais possibie de se procurer un câble 
de liaison Macintosh/Minitel directement à la revue (n'oubliez 


pas de préciser de quel type de Mac il 
s'agit ?). Le Minitel utilisé doit être du 
type ‘retournable’ (il doit pouvoir 
émettre à 1200 bauds), ce qui est la cas 
pour la quasi-majorité des modèles. 


Possibilités et limites 
d'InterPom's 


InterPom's peut faire passer tous les 
types de fichiers ou applications d'un 
ordinateur à l'autre par le réseau 
téléphonique par l'intermédiaire du 
Minitel. Le programme fonctionne 
indifféremment sur tous les Macintosh : 
128Ko, 512Ko Macintosh Plus, en 
HES, en MFS, sur disquettes (même 
avec un seul lecteur) et sur disques durs. 
La taille de la mémoire vive disponible 
n'a pas d'incidence directe sur la taille 
des fichiers transférables ; il est ainsi 
possible d'envoyer ou recevoir une 
application de 350Ko avec un 
Macintosh 128K0, ou encore un fichier 
de 8 Méga (par exemple) si vous 
disposez d'un disque dur. 

Les limites ne sont pas directement 
liées à InterPom's mais plutôt à son 
utilisation : 


«_ grâce au type d'encodage utilisé, qui 

autorise des transmissions rapides 
pour ce type de logiciel, il faut compter 
environ quinze secondes par Ko 
transmis : le fichier de 8 Mo précitée 
occuperait tout de même la ligne 
pendant un temps certain. Ce cas 
extrême {on ne transmet pas huit 
millions de caractères :tous les jours !) 
peut constituer une limite. D'un point 


Émission du fichier 
Fedit 3.0 


Type APPL/FED2 
53K0/53764 octets 


de vue plus pratique, une application 
comme MacPaint est transmise en 12 
minutes, délai tout à fait acceptable ; 
° une autre limite — puisqu'il faut en 
trouver une autre — est le fait qu'un 
logiciel protégé le reste après 
transmission. Ainsi, s'il est possible 
d'envoyer Multiplan à un correspondant, 
le Multplan recréé par InterPom's se 
comporŒrs comme une copie ‘normale’ 
du logiciel, en réclamant l'insertion de 
l'original à l'ami récepteur. Gageons que 
cette limite — qui n'en est bien sûr pas 
vraiment une —fera plaisir aux auteurs 
de logiciels. En fait, s'il arrivait que 
certaines protections ‘sautent’ du fait 
d'une transmission par InterPom's, ce 
ne serait qu'involontaire. 





Mode 


Y Réception %R 


5 Émission  %E 


Û 


Ë 






Le programme, qui 
scrupuleusement le célèbre ‘Macintosh 
User Interface Guideline’ est d'un 


respecte 


emploi aisé ; il faut cependant citer 
quelques points communs à la réception 
et l'émission. 


Comme vous pourrez le constater, la 
fenêtre du haut est utilisée pour la 
réception, alors que celle du bas sert 
uniquement à l'émission. Ces fenêtres 
peuvent être déplacées pour, par 
exemple, rendre plus visible un 
accessoire de bureau. Pour les remettre à 
leurs places respectives instantanément, 


créé le Mar 28 Mai 1985 








| Recestion sur le sctume Étet de ls reces ton 
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il suffit le faire un ‘clic’ sur Pese © 
l'autre des barres de déplacement 
maintenant les touches ‘Option’ et 
‘Commande’ enfoncées. Ceci ne 
modifie par la sélection et l'ordre 
courant des fenêtres. 


Avant d'entreprendre une transmission 
de fichiers, il vous faudra bien sûr 
appeler votre correspondant, mais aussi 
mettre sous tension le Minitel (après on 
ne s'en occupe plus), sans avoir oublié 
la liaison Macintosh/Minitel. 


Pendant la transmission, il convient de 
ne pas raccrocher le combiné 
téléphonique, ce qui vous permettra de 
converser avec votre correspondant entre 
ou après les transmissions. 


Il y a trois solutions pour passer du 
mode Émission au mode Réception ou 
inversement : 

+ sélection de l'article du menu Mode ; 
+ Commande-E ou Commande-R ; 

+ sélection de la fenêtre par un ‘clic’. 


Réception d'un document 


La manipulation est érès simple : 


* vous choisissez à l'aide des boutons 

‘Lecteur’ (ou la touche ‘Tabulation’) 
et ‘Éjecter’ le volume sur lequel sera 
stocké le document à recevoir. 
InterPom's vous indique le nom du 
volume en ligne, le type de volume 
(disquette ou disque dur) et la place 
disponible, en Ko. En cas de manque de 
place généralisé sur les volumes en 
lignes, il est possible d'insérer une 
disquette vierge que le programme se 
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chargera d'initialiser (après votre accord) ; 

*__prévenez votre correspondant et cliquez sur le bouton ‘Envoi 
des Blocs’. Le programme connecte le Minitel, se met en 

attente du récepteur et, dès que “l'ami du bout du fil” clique sur 

‘Envoi des blocs’ {il a environ une minute et demi pour le 


Macintosh 128 ou 512 





Le 
faire, après quoi la liaison est interrompue), la transmission - 
commere. 2 DIN 160° 
Le premier bloc (chaque bloc correspond à 512 octets) est un pins 


bloc de contrôle qui contient divers paramètres parmi lesquels 
on trouve la taille du document, son nom, son type, etc. Dès 
que ce bloc est arrivé, le programme affiche le nom du fichier, 
sa taille en bloc de 512 octets et sa provenance (pour l'instant 
Macintosh ou Apple//). Si le volume en ligne n'offre pas une 
place disponible suffisante pour recevoir la totalité du 
document, Inter Pom's vous prévient et vous avez alors encore 
une minute et demi pour changer de volume sans que la 
transmission soit interrompue. Ce contrôle ‘a priori’ évite le 
frustrant message ‘volume saturé’ alors qu'il ne restait plus 
qu'un blor à recevoir. 


L'application ou le document reçu sera doté des attributs qu'il a 


chez votre correspondant (type, icône, nom). Toutefois, si le Conpisants nécessatres 52 transisters 2N2222, 2 résistances de 10 KO, 1 de 18k0 | 
nom du document transmis est identique à celui d'un document 


Prises 
vues côté 
soudures 





existant sur le volume récepteur, 
InterPom's ajoute automatiquement le 
suffixe ‘A’ au nom actuel. Ainsi le 
fichier ‘File’ serait rebaptisé ‘File.A’. 
Si un fichier ‘File.A’ existait aussi, 
‘File’ serait rebaptisé ‘File.B’, et ainsi 
de suite... 


Pendant la réception 


Deux ‘échelles’ visualisent la 
transmission en cours. L'échelle 
supérieure (une simple ligne noire) 
représente le bloc de 512 octets alors 
que celle du bas, plus large indique le 
pourcentage de blocs reçus par rapport à 
la totalité. 


Il est possible, aussi bien pour 
l'émetteur que pour le récepteur, 
d'interrompre la transmission en cours 
en cliquant sur ‘Annuler’. Dans ce cas, 
le correspondant est prévenu, le Minitel 
est déconnecté et, au nom du fichier 
dont la réception était en cours est 
ajouté le suffixe ‘.INCOMPLET. 


Bien queles opérations se fassent d'une 
manière totalement automatique, des 
messages vous informent en 
permanence de l'état de la réception 
(Liaison avec l'émetteur, Attente du 
bloc N, Réception du bloc N, 
Réémission demandée, etc.). 


Réception depuis un Apple // 


Si votre correspondant est muni d'un 
Apple // et de la version adéquate 
d'InterPom's, il peut vous envoyer des 
fichiers. Deux cas peuvent se présenter : 


+ _ils'agit de fichiers de texte. Dans ce 


cas certains caractères sont recodés 
(é, à, à, {, etc.), le bit de poids fort de 
chaque caractère est forcé à 0 et 
InterPom's lui donne le type 
TEXT/MACA c'est-à-dire fichier 
.texte/MacWrite, Ainsi, un double-clic 
sur le fichier créé provoquera le 
chargement de MacWrite, et le 
document sera directement exploitable ; 
- il s'agit d'autres types de fichiers. Le 
contenu est laissé tel quel et on lui 
donne le type TEXT/EDIT, c'est-à-dire 
le type de l'éditeur utilisé avec, par 
exemple, le système de développement 
68000. Le document sera aussi 
utilisable depuis MacWrite (ou tout 
autre programme de traitement de texte) 
mais ne pourra appeler par un 
double-chc que ‘Edit’. 


Dernier petit détail : un nom de fichier 
issu d'un Apple// est toujours en 
majuscule ; ce n'est pas très joli et 
prend beaucoup de place. On remplace 
donc les caractères par des minuscules 
en laissant tels quels le premier 
caractère du nom ainsi que, bien sûr, les 
caractères spéciaux comme ‘/’ 


Émission d'un document 


La partie émission du programme à de 
nombreux points communs avec la 
section précédente, la plus grosse 
différence étant qu'au lieu de choisir un 
volume pour recevoir, on sélectionne 
ua fichier à émettre. Cette opération se 
fera avec le menu Fichier. 





Fichier 


à out documents.  3%0 


Ferrner 


Quitter 


L'article ‘Texte seulement...” (ou 
Commande-T) fait apparaître la fenêtre 
de sélection standard avec seulement les 
fichiers de type TEXT. L'article ‘Tout 
documents...” (ou Commande-O) 
autorise la sélection de n'importe quel 
type de fichier, y compris les 
applications. 

Dès qu'un fichier a été choisi, 
InterPom's affiche son nom, son type et 
son ‘créateur’ (ou APPL pour une 
application), sa taille en Ko et en octets 
ainsi que la date de sa création. 


Pour le reste, la partie émission se 
comporte de la même façon que la 
réception. 


Le menu Édition n'est pas utilisé par le 
programme ; il n'est donc valide que si 
un accessoire de bureau, qui pourrait 
utiliser ces fonctions, est sélectionné. 
Ceci est aussi valable pour l'article 
‘Fermer’ du menu ‘Fichier’. ä 
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Fichier ‘InterPom' 


INCLUDE 
INCLUDE 
INCLUBE 
INCLUDE 
INCLUDE 
END 








Couper %k 


Copier %cC 


LU 


Intielisstions 


P£a —4 (AS) 

InitGraf 

_InitFonts 

MOVE.L 6S0000FFFF,D0 
_Flusb£vente 

_Initirices 

_TnitMenus 

CLR.L -(s2) 
_InitDialogs 

_TEInit 

_InitCursor 

CLB.B  Scevolime(as] 
CLA.B Vcarichtez {AS} 
CiR.B DofautEfecte [AS} 
cie-B  DrChoixFichier (AS) 
MOVE.L #$FFOOFFO0,DrhenuFichier (AS) 
CLR.B 52:58 

MOVE 40izend,- (52) 
_rack2 

R7s 


Menus 


s.Asm’ 


Fichiers :interPom'e/1.hem 
Fichie 
Fichiers'InterPom' s/3.Asm 
Fichiwrs!interPom s/4.Asm 
Fichers:Iinterrom' #/5.Aëem 





InterPom' 3#2.A0m 





Fichier ‘interPom's/1.Asm' 


SUBS.L 64,2? 
MOVE #NeruPomne,-(5P) 

_Get Menu 

MOVE.L (Sè).HardlemPome(n5) 
MOVE.1. BandleMPcmme (A5),-($P) 
CLR {52} 


+'DRVR',-(SP) 
_AddResMenu 

SUBQ.L 64,SP 

HOVE +HenuFichier,- (Sr?) 
_Gata“enu 

MOVE. L  (£P},BandleMPlchinr(Aa5) 
CR —(3r) 

_1nsertMenu 

SUBQ.L 4,5? 

Move #MenvEdition.=(SP} 








_GetIMenu 
INCLUDE Fichiers:Fs€qu.Txt MOVE.L (S2).ÆandleMEdit ion (A5) 
INCLUOE Fichiere:Mac?rape .D CLR (52) 
IFCLUDE Fichiers:3ye£2qu.D _1nsertHenu 
IVCLUDE Fichiwrs:Too1eov.D SUBQ.L 64,5? 
IRCEUDZ Fichiers: QUiCkEQU.D MOVE  éenuMoge,-(s2] 
IOUDÉ Fiehiers:Packiacs.Tat _GetrMenu 
PHARE 800 1 MOVZ.L (SP),=and)eo4-do ([AS} 
ap ropos su 1 CR — {sr} 
MenuFichier Eou 2 _I10ae=tManu 
aOvvrirl 800 1 WOVZ.i zandle“Ædirion{AS),-{sP) 
mOvvurir2 EQU 2 TR —{s2) 
arermer EQU 4 _Disèbie:sec 
mOvitter LOU s _Dramsnusaz 
MenuEdition EQU L RTS 
aAnnuler EQU 1 Éveneæents 
nOUper zou Le] TST.3 Defautrlecze (AS) 
eCopier EQU 4 BEQ.S 61 
aller EQU 5 MOVEA.L de£VCSPir.A3 
#Effncæer EQu u ?ST vcbD:vèive(A3) 
MenuMede EQ0 4 BEQ.S CE 
mRecept jon EQU 1 CLR.B DefauteJecta (AS) 
mEuvoi EQU 2 ESR Piusieur sVolumes 
DiaiogAPropos BQU 1 ESA Volumesv1vant2 
Dialog8is EQU 501 BSR AE SNoæ 
LbOK EQU L 01 _SystenTask 
so& EQU 1 SUBQ.L #2,5F 
EOT EQU 4 HOVE #$0FFF,-{5P) 
ACK EOU 6 PTA Enr eQE venta(AS) 
NACX EQU 21 _GetNext£vent 
car EQU 25 TSE (SP}+ 
CAN_U EQU 2 BEQ.S  Eventments 
CAN_A EQU 5 BSR.S Traitementevents 
DIF EQU 3 BEQ.S Eveneæents 
CBECK EQU 7 ATS 
Applell EQU 1 Traitenentevents 
DebutBloc EQU 9 MOVE EnregEvent s$evtHi (A5),DO 
NurBlos EQU 1 ADD 00,00 
NotNumBloc Fou 3 MOVE  TableEvemenente(D0},D0 
TypeEmetteur  EQU 4 MP TabieFvenements (DO) 
TyPeTexteMac EQU $ TableEvenenents 
N3locsData EQU 6 oc Eventsuivant-TableEvenements 
KBlocsResoureæ  PQU , oc Souris-TableEvenements 
MBJScsTotal EQU 10 bc Éventsuivant-TabieLvenamente 
SypeTexteApple  EQU sp pc Tcuche-TableEvanement s 
#BlocsApple mou s2 Dc Eventsuivant-TableEvenements 
LongLleg_Aovle  BQU 36 pc Touche-TableEvenements 
VcaFichierApple BQ0U 100 pc MiseJour-TableEvenement s 
pars eau 164 oc Dioquett e-Table£ venosont s 
ES 800 250 oc Active-TableEvenements 
LongoeurBloc mao si? DG Eventsuivant-TableEvenenents 
LonñgveurBloc  BQU 683 oc Eventsuivart-TableEvenements 
HombremaxP£ seat  BOU 10 oc Event sui vant-TablePvenements 
SixFaibles BQU $3r zveniauivant 
CeuxForta eu 3cû “OvEe +0,D0 
B52,5 Initialisätions ATS 
BS8.S Menus Souris 
BSR Ouvreserie Su&o.L 62,58 
BsR Ouverturer MOVE.L EnregEveut steutMouse {AS),-(5P) 
ERA Evenments PEA EnregEventstevtuetas 2 (AS) 
Fichier ‘InterPom's.Job’ 
HDS : SM Fichiers:InterPem'# Asm mpS:Exec MODS : Ed:t 
MS :LINX Fichiers:interPem"a.Linx WDS:Exec “DS: Edit 
PS5 : MAKER Fichiargilnter?om's.R MDS:rinder MBS:Edit 
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HOVE (58) +,00 

A0 D9,09 

MOVE TableFsenetre(00},00 

Mr Tablerere re (00) 
TableFenetre 

pc £vertsuivant-Tablerenetre 

DC Gar#tenu-Tablefnne re 

DC LeretreSys-Tabl netre 

DC Contenu-TableFenetre 

DC Deplaceïen-TableFenatre 

DC Contenu-Tablerese re 

oc Eventsuivant -Tab leFeneire 
Bacrenu 


3U8Q.L 04,56 
MOVE.L ÉnregEventstevtMouse {AS).-{(5P) 


.Menuselect 
HOVE 4s?}+,01 
MOVE (sr) +,00 
Bartienuc 
ADD D1,01 
MOVE TableMenus (01),01 
JP Tablenenus(D1) 
TebleMenus 
pc Eventsuivant-TableMenus 
oc Traitronne-Tabletænus 
pc TraitFichier-Tablekenus 
oc TraitPdition-Tablefwaus 
DC TraitMode-TableMenus 
FinMenys 
CLR -188) 
_8ilitamenu 
BAA.S Eventauivant 
Troitrichier 
ADD Do,p0 
HOVE TableFicnier (D0),D0 
JP TebleFichier (D0} 
TableFichier 
La finMenu-TableFichier 
oc TOvvriri-TableFichier 
oc DOvvrir2-TableFichier 
oc FinMenu-Tablerichierz 
oc DFersor-TsbleFichier 
pc FinMens-TableFtchier 
DC Tôvitter-TableFichier 
Touche 
STST +OUey, EnregEventstev de alAS} 
BR£.S  Cramande 
TST.B  DräcetonLectenr (AS) 
BNE.S di 
CHP1.5 69, ErregEventersevt{ossaqut3[AS) 
BNE.s al 
CER.L  -(SP) 
ÉLES Boutonn 
#1 6RA Eventsuivant 
Commande 
CLR.L -(38) 
MOVE EnroGE vent steveMessage+2 (AS},-(3P) 
_Henukey 
Nove {sP)+.D1 
MOVE {SP)+.D0 
BRA BarHenuC 
Hivo Jour 
35R sPMiseJour 
BRA Evéntavivant 
SPMizoZour 
HOVEA.L [nregEventat+evtMossa0e (A5) ,A4 
MOVE.L Ad,=-(58) 
MOVE.L (SP},-(SP) 
_beginUpdate 
_3e Pert 
TST.L WRO£C oui (A4) 
BVE.S ei 
BaR HiveJourl 
BRA.S e2 
él psr MiseJour2? 
42 MOVE.L Ad,-(sP} 
_EndUpdate 
RTS 
HtseJouri 
NOVE.L A4,-({5P) 
_Drawontrols 
352 AfficheContenuFA 
x7s 
HiseZur2 
HOVE.L Adr—(3P) 
_Prawontrols 
BsA ContenuCoœaun 
MOVEA.L (AS),A0 
PEA gray (A0) 
_ten£et 
MOVE.L e+$00300010,-(3P) 
houdie 
HOVE.L #3003000B7,- (32) 
..Lineto 
_'entommal 
HOVE.L F$00180010,-(SP) 
HoveTo 
PEA ChaineRmisatorn]l 
_Drawstriog 
HOVE.L 4#$004B0010,-[SP) 
_HovaTo 
PEA ChæineEmissdon2 
_Drawstring 
MOVE.L #5006B0010,-(3r) 
_“oveTo 


43 








PER ChaineEmissions 


_Drsustr ing 
MOVE.L #$0018000D,-—(SP} 
_MoveTo 
PEA ChainoEtatE 
_DrawString 
TST.E NonF ichier {A5} 
BEQ.S LE 
BSR AfficheConteeur2 
ê1 RES 
Disquette 
MOVE EnrégEventstevtiessagersz (AS},05 
TST EnregEvents+evtMessage (AS) 
BEQ.S e3 


SUBQ.L 42,5? 
HOVE.L 456400$4,-(5?) 

HOVE.L EnreQEvants+evrMessaüe (A5},- (SP) 
HOVE 4D1Badmount,-{(5P) 


_Pack? 
TST {SP)+ 
BNE.S 84 
23 MOVE.L vcb@Pär+2,A3 
eè cp vebDrvNum {A3) , DS 
BEC.S el 
MOYE.L  (R3),A3 
BRA.S 22 
é1 BsRr Plusiev-sVolumes 
HHE.S @$ 
BSR PazVolume 
BRA.S LL 
GS BSR Volumesuivent2 
BSR A£ Fhom 
84 BRA Tventsuivaat 
Active 


HOVEA.L EnregEvanta+evtheazage (A5},A4 
CHPI tvsecKind,windowKind (A4} 

BNE Event suivant 

MOVE EriregEvent 3+evtMata(AS),D7T 
BTS? fActiveF}kag, 07 

BEQ.S DeActiver 

MOVE.L A4,-18P} 


_SetPort 
DeActiver 
SSR Valide“enue 
BRA Eventaui vaet 
fenetresys 
P£A EnregEvent a (AS) 
MOVT.L EnreogEvencs+tæutiétas2 (AS) {SP) 
SystamClier 
BAA Eventsuivent 
Deplacefen 
HOVE EntegEventatevrMete (A5},D0 


ANDI 42049+256,D0 

CMPI #2048+#56.00 

BNE.S @1 

SUBQ.L 64,5P 

_FrontKindow 

MOVE.L (SP}+:D3 

MOVE.L PoinreurFenetrel {AS),—(SP} 
LEA AectFenatrel, A3 

MOVE.L (a3},-(5P) 

CHP.L  PointeurFunetrel (AS) ,B3 
SEQ {SP} 

_HoveWindow 

MOVE.L PointuurFenetre2 (A5) ,— {SP} 
MOVE.L S(A3),-{SP} 

CP.L Pointeurfenetre2{(A5},D3 


s2Q -{5P) 
_Hoveindew 
BAA.S e2 


@1 MOVE.L Enreglvents+evtMeta+2Z(A$),A4 
MOVE.L A4,-(SP) 
MOVE.L EnregE@nts+evtMouse {AS},-(SP} 


PEA RectanQlelimite 
_DroQWindow 
TSLE.L wRe fCon (A4) 
BNE.S 83 
S5R MacqueModal 
BRAS 82 
93 SSR HarQueMo4e2 
@2 BRA Evanteuivant 
Contenu 
SUBQ.L 64,5P 
_FrontWwindow 


MOVE,L (SP)+,D0 
MOVEA.L EnregEvents+tevtMeta+2(A5},A4 
CMP.L  Ad,D0 
BÉQ.S el 
MOVT.L A4,-(5P) 
_Selectwindow 
HOVE.L wRe£Con(Ad},00 
BNE.S 83 
BSR MarqueModai 
BRA.S 22 
83 SR Marquedode2 
BRA.S 92 
@l HOVE-L A4,-(SP) 
_SetPeri 
PEA EnrégEventa+Evrèiouse {AS) 
_GlebalTolocal 
SUBQ-L 62,5P 
MOVE-L EaradEvants+EvtMotse (AS) ,-4{5?) 
MOVE.L A4,-[8P) 


PUA BanéleControle {AS} 
_FAndGontro 
TST (82)+ 


BEQ.S 82 


SUEQ.L 92,8? 
HOVE.L EHandleControlelA5},-(52) 


MOVE.L EnragEveñnta:=vtMouse(AS},-(SP) 


CLR.Z (SP) 
_TrackContre] 
TST (SP)+ 
BEQ.S e2 


SUBQ.L #4,5P 
MOVE.L HandleControle(AS},-(5?} 


_GetCRefCon 
ESA Boutons 
62 BRA Eventsuivant 


TraitPomme 
CMP1 42APropos,D0 
BEQ.S TraiteAPropos 
MOVE.L BaedleMomxe (A5),-{58) 
MOVE D0,-(8?) 


PEA NnoAcoessoire (AS) 
_Getitam 
SUBQ.L #2,SP 
?EA NomAcceescira(AS} 
_OpenbeskAce 
AODQ #2,5P 
BRA TirMenu 
TraiteAPropes 
CLR.L (SP) 
MOVE #401elogAPropos,-(5P) 
PEA Diatôgie (as) 
MOVE.L #-i,-(52) 
_GathewDialog 
HOVE.L, (8P}r-(SP) 
_Setr?ort 
Attente 
CLR:L —(8r) 
BEA Article(as} 
_Modelbialog 
_Clesetlialog 
SUBQ.L #4,5P 
_FrontWindow 


MOVE.L (SP}+,A4 

CPI Jusor&lné,wladowKind(A4) 
ê1 NE FinMenu 

MOVE.L Ad,-(sP) 

MOVE.L {SP);-{SP} 


_SelectWindow 

_SetPort 

BRA.S 1 
TraitEditien 

BSR.S VersSÿstanme 

BRA FinNenu 
VersSystene 

MOVE D0,D7 

CLR —(sr) 


HOVE D0,-(SP} 
sv #1:(8P) 
_ByeEdit 
MOVE.B ($z)#,D1 
RATS 
Tra!tMode 
SuBQ 41,20 
8KE.8 Mede2 
MOVE.L PointaurFanetzæl (AS) ,-(SP} 


_SelectNindew 

BSR Mar quemode] 

BAA.S" FinTraitMode 
Mode 

HOVL.L FointeurPeneire2{lAS},-(S?) 

_SelectWindow 

BSR MarqueMoie2 
FinTraitMode 

BRA FinMenu 
TMmoOuvrirl 

LEA TYPeRERT, Al 


MOVE.L Àl,D0 

MOVEQ  #1,D1 

BA PrOavrir 
TsOuvrir2 

MOVEQ #0,D0 

MOVEQ *-1,01 


TMmOvrir 
MOVE.I. 3$640064,—{SP) 
CLA.L (Sr) 
CIR.L (SP) 


HOVE D1,-(SP) 
HOVE.L DO0,-(SP) 
CLR.L -{S$P} 


FEA RePonseGet File {AS} 

MOVE #sGetrile:-(SP) 

_Peck3 

TST ReponseGetFlle+rGood (AS) 
8EQ Finhenu 

LEA TamPæniO(AS}, AO 

LER ReponseCetFile+rName(AS},A] 


MOVE.L Al,£erfleNama (A0) 
HOVE RepenseGetFiie+rVolums{as), 
10VReFNum (A0} 


CLR 10FDirindex (A8) 
CLR.B loFile TypeiA0} 
_GetFilelnfe 
BEQ.S e7 
CLR -(8P) 

211 BSR Errau: 
BRA FinHenu 

23 ZEA TambonlO(AS}.AD 
TST.B £oFlActrib{A0} 


BGE.S 610 


âle 


e3 


e2 


ê4 
es 


es 
e 





MOVE #1,-(52} 

BRAS  @1l 

HOVEQ æ0,D0 

MOVE.3 ReponseCetFile:ir Name(AS},D0 
AD09 1,00 


2EA ReponsoGetFile+rName (AS), AO 
LEA NomFichier (AS},A1 
_BlockHove 

CLR {se} 

PEA WonFichier (AS) 
_StringWidth 

CHPl #168, (SP}+ 

ALT.S 82 

MOVER  4#0,D4 

LER NonFichier (A5},A4 
MOVE.B (A4),D4 

MOVE.B #‘.°,.0(A4,D4} 
CLR —{sP} 

PLA KomFiohier {AS} 
_StcingWideh 

CMPI +168,{(5F)+ 

BLT.S e2 

SUBQ.B #1, (A4) 

SUBQ #l,p4 

BBA.S 83 

LEA TamponlO(AS}) , A0 
LEA Tanponrespor sire(AS} ,Al 
MOVE Ô f10FŒIlsite,D0 
_BlockHove 

EPA TamB@nEO (A$} , AÔ 


MOVE,L 1oF1RLQLan (AU),D8 
ADD.L $oFllgLen(A0},DO 
MOVE.L DO,DS 


LEA NonbreOctete(AS}, A0 
CLR —(8P} 

_Pecx7 

MOVT.L D5,D0 

LEA CheineEnissiond,A@ 
CPI.L #1,D5 

BGT.S 84 

MOVE.B #6,(A0} 

BRA.S 45 


HMOVE.B #7, (AU) 
HOVE #1024,01 
DEVU 01,00 


SWAP Do 
TST 0e 

B2Q.s es 

SRap 00 

AL0C #1,00 
BRA.S 1 

SshAP po 

ANDI.L #$1FEF,DO 
1E2 NombreKoEnvoi (AS), AU 
C1R -(SP} 
_?ack7 


MOVE.L TemponiOs+10F]DarWds+f4Type{as), 
TypaFichier+2(AS} 

MOVS.L Tanponl0+loFlUsrkis+fdCreator (A5), 
CreateurFichier+2{AS) 

MOVE.B 44,TyDeFichier+i {as} 

MOVE.3 #4,CreateurFichiar+l{AS) 

MOVE.L TamponiO41crlCrbat {AS),-(5P) 

MCOVE.B fabbrevDatwe,-(SP) 





PEA ChaineDat e {A5} 
MOVE #IUDateString,- (SP} 
_P&ck6 
PEA Sauverort (AS} 
_GetPort 
MOVE.L Fointeurrenatre2{AS),-(5?} 
_SetPert 
P£A RectangleEffacaFlchier 
_EraseEact 
P£A RectangleBffacelnfol 
_Brasekect 
PEA RactanQlet fface1nfo2 
EreseRect 
PER Rectanglef ffacelnfo3 
_Brasekect 
ESR Af ficheContenaur2 
TsT.B  DrChoixFichter(AS) 
BNE.S LL] 
sT DrChoixFichier{AS} 
MOVE.L ÆandleControlelF2(A5),-(SP} 
CLR —{s?) 
_BiliteContrel 

68 MOVE. Sauve?2crt {AS},-(SP) 
_setrort 
BRA FinMenu 

Trermer 
SUBQ.L #4,5F 
_FrontWindow 
MOVEA.L (5P)+,A4 
MOVE wi ndeukind{ns),-1sP} 
_ClosæesaskAcc 
BRA FinMenu 

TaQitter 
HOVE +-1,90 
RTS 

OuvertureF 
88r Montre 
SUBQ.L #4,5P 
CLR.21 (SP) 
PEA RectFenetre2 
P£A Titrez 


MOVE.B 41,-(5P) 
KOVE document Proc,-(SP} 














= BSR Mission 
CUR-L  -{se) AFNOR 
CLR (SP) PEA Sauve>ort(AS) BRAS BoutonAttantez 





MOVEQ  41,D0 _Get?cr PlusieuraVolumes 
MOVE.I. DO,-1SP} MOVE.1. PointeurFenetrei(A5},-(SF) LIX  A6,60 
NewWindow _Set?ert MOVEQ 90,05 
MOVPA.L (3P),A4 TST.B  MoeVolume(As} HOVE.L vQBdr +2, Al 
Se Por 8cQ.s 1 BRAS 4 
MOVE  teyaToet,-(8} ZRA Aecranglerf face e2 MOVEA.L (AL). Ai 
TeatFant _Eraseect 04 MOVS.L A1l,01 
Move  #12,-(5PI MOVE.L 4500280010,-{5P} BEQ.S 1 
TaxtSire _Move?a 18T vebDrviun (Al} 
SUB0.L #4,5P ?EA  Nosvolume(AS} BEQSs 02 
MOVE.L A4,-15P} _Drawsiring @3 ADDQ  #1,05 
PEA Asa angleBouton] MOVE.L #S00330010.- (SP) BARS  €2 
PEA TitreBoutoelF? _ Have dl MOVE.L AandleCoetrvolel(as),-(SP) 
MOV2Z.B #1.-(3P) MOVE 2" 1°,-(5r) CHP1 #2,05 
CAL -(5P} _DrawCRar Shi D4 
Ca.L -(5P} PEA Noabrar (AS) HOVE.B D4,DrBoutonLectuur(AS) 
HOVEQ  #3.D0 _DrauString HOVE 04,-(5SP) 
MOVE. DO, (38) PEA ChaineBeæpt ion _ÆiliteContrel 
NewCont rol _DrawuString TST os 
MOVE.L (sp), BandleControlelr2(h5) BSR AfficheDri ver UE A6 
MOVE  4-I,-(5P) T3T.B  Drapeeuvv(AS) es 
_BiliteControl BEQ.S 41 VolumeSuivant2 
MOVE.}, A4,Polateurlenet re2 {AS} MOVER.L (ASJ,A0 LINK A6.40 
PEA gr2y{A0) BRA,S E8 
CON _PenPat Volumesuivanc 
RL NETSRE MOVE trnotPatB£c.- (SP) LINK A6,40 
gd FenHode MOVE. 1 vc@Bdr+2,A3 
D. piiceel PEA  Rectangiolone TST.B  NonVolunelA5) 
MOVE.B #l:-(5P) Re Sens UT 
Move  ddocumentProc,-(5P) PEA Ractandlatfface MOVE  VoluseCourant (AS), DO 
DoNRe A iOE _PaintRect 87 Mr  veVRefhun (A3) ,D0 
MOVE.L 00:-(SP) esbornsl RAR 
CLR -(se) MOVE.L SauveFort(A5),-(SP) MOVE.L (A3),A3 
cr r) _setrort HOVE.L A3,D1 
NewNindom e1 RTS BHE.S 07 
PONERL APRIL EAA Affichenrivne HOVE.L vcbQBdr+2,A3 
_Setrort Teppen S2T -bitmeprec BRAS 07 
HOVE #syoronc,-(5P) LIUK A6,$Tampon 46 HOVE.L (A2), A3 
es MOVEM.L AD-A4/00-D2, - (5P) MOV£.L A9,D1 
MOVE #12:-(6P) SUBO.L 4#4,5P ere qi 
TS MOVE  DriverCourant {AS},-(S##) MOVS.L vebQHdr42,A3 
SUBO.L 44,8P _Getrcon US DEA 
MOVE.L M,-—{SP} MOVER.: (SP) +, A0 eNr.s 08 
PEA Jectanglesouton] MOVE.L (A),TanDon;baseAdar (A6) 157 vCbURe Nu (A3 } 
ER TAtreloutes WOVR 4, Tanpon:rovBytes (A6) BLE.S 6 
WOVE.B 41,-(5P} CLA.),  Tampcnibounds(A6} MOVE  vebVasfNuæ{A3).D0 
CLR.L {SP} HOVE.L. 45200020, Tzxpanrbounds+bottan (A6) 757.8 Bose Voluma{A5) 
EURE “H3P7 2EA Tanpon:baseAddr (A6) BNE.S 7 
CLB.L -{(5P) HOVSA.L PointecrFesetrel (A5) , A0 PEA Aæec anglelcone 
MewCont roi ADDQ.L P2,A0 ZressFect 
MOVE-1, ($P}, AandleContzrolei (AS) MOVE.L A0,-(52) FA can ieLE tits 
MOVE.L A4.-{5P) REA Tampañ+bounds (A6) £raceñect 
PEA 2e ctangleBoutoe2 PEA Rectangleicone Lx 6 
PEA Ti resouton2 CLR (82) RTS 
MOVS.B #1,-(5P) CLRL -(SP) 
CLA.L -(SP) _CopyBits es ve vebVaefuum (A3), VolumeCourant(AS} 
CLR.L -(5P) WOVRM.L (SP) +, A0-A4/D0-D2 WMOYEQ 40,00 
MOVE. 1100 UULR A6 HOVE.S vb VW (A3), D0 
a RTS ADDQ  #1.D0 
- Fe Boutons LEA vebVN (A3) , A0 
er Do ue LINK  A6,40 LEA NonVol une AS}, A1 
: { MOVE  1D{AS),D0 _BlockMove 
MOVE.L A4@-(8P} Sc “où ax (se) 
MR jesoomeonceni MOVE  TableBoutone (DO), DO PEA  NomVolume (AS) 
ne CE MP Table Boutans (00) _#ringhidth 
5e 0 TableBoutons 1 4168, (8P)+ 
CLR.L  -(52) DC Boutonlecteur-TableBoutons BLT.S @2 
MOVEQ 42,00 D BoutonEjecter-TableBoutone NOVIQ #0,D4 
KOVE.L U0,-(SP} DC BoutonAttente-TableBoutone LEA onVotuæe (AS}, A4 
NeuCont r01 DC BovtonEnvoi-TablsBoutens MOVE.S  {A4},D4 
HOVE.L (SP) +, AandleGont role3 (AS) are CÈ Hi à nn 
MOVE.L Aë:PointeurFenetrel (AS) . _—_ Sa NoaVo lime (AS) 
BSR PlusieureVolunes ai : er Rs nan a 
BNE.S @1 = 
BSR PasVolune BoutenL£jecuer Cet  +v168,tsr)4 
BRA.S 2 MOVE Jen BiT.S 2 . 
Tampon 10+10! um $VBQ.B #1, (A4) 
: OR ETS CLA.L TanponlOticCempletion{AS} S08Q  #1,04 
2 CLA.L  TasponlO+ioVNPtr(AS) BRAS 03 
LEA Tampon1o(AS) ; AD @2 HOVE.L vebAlBlxsaz(A3), DO 
hosese _æject MOVE  vcbFrueBks[A3}.D1 
SUBO.L 4 250.5 €] MOVEQ  #9.02 
NONE  vatehCurgor: (sr) CR 15?) LSR.T,  D2,D0 
_GetCursor BSR Erreur LU Di,00 
HOVEAL À5P)+.A0 BRAS  SortieBourons L#.L  #1,D0 
WOVE-L  (A0},-(5P) ei SR  PlusieursVoiumes MOVE. DO, NonbreKONux (AS) 
_Seteursoe BüE.s @ez LIA ChainekReceptian?, Ai | 
RTS £SR PesVoluse cMei 1,00 
AtficheContenu"R BaA.S ET@2 #t PasDer la ma (AS) 
ESR Cont enuCoasen 03 sr Volves Suivant BC?.S @4 | 
MOVPA.L (AS),A0 S8R A Püom MOVE.B 49. (AL} 
PEA gray (A0) ETQ2 MOVT.B #'j",9ÛA1) 
_Penpat MOVEA.L defVCBPtr, A1 BRA.S 5 
MOVE.L #500400010,-(3P) TsT vebDrvum {ai} @4 HOVE.B #10, (AL) | 
_HowsTo sct Deraut£jecte (AS] MOVE.B #'n°,9(A1} 
HOVE.L #$00400087,-(38) Sort ieBoetone @$ LEA NombraX{AS) ; A0 
_1ineTo UBLK A6 CLR —{se) 
_Fennoreal aovE.r, (SP}+, (SP) Pack? 
WOVE.L 4300180010 ,-(5P) SE MOVE  veBAtrb{a3} , 00 
oiere BoutonAttunte ANDI  4#58080,00 
PEA ChaineRa sept ion BsR Amweption sue Drapeeuvv{As) | 
_0rawString BoutonAttente2 B8R ChercheDrlvec 
MOVE.1 #9001800D0,- (82) MOVEQ 42,00 MOVZ.1, fiandleControia2{AS),-(Sr} 
=2teveto FlushEvents CHP1,B 68,-3(33) 
PEA ChainoEtatr SAS  Sortishoetons 32 03 
_DrawString BoutonEnvoi MOVE D3,-(5P) 





Pom's n° 28 45 


-BiiiteControl 

MOVE.L SandieControle3(AS),-(SP) 
MOVE.B DrapeauW(as),00 

CR.B PasDePlace (A5},D0 


LEAT Do 

HOVE Do,-(5P) 
_Bilitecontrol 

TST.E o3 

BNE.S es 

HOVE 4267, DriverCeurant (AS) 
BRA.S e? 


86 Meve #426R,DriverCourant (A5) 
87 UNLK A6 
RTS 
ChercheDriver 
MOVE vbOrvAuio(A3),D0 
MOVEA.L érvOBdr+2,A3 


az CM? PBrive(A3},D0 
BNE.S ei 
ATS 


@1 MOVEA.L qLink{AS},A3 
MOVE.L, A3,01 


ANE,S Q2 
RTS 
Pasvolins 
PEXA Rectanglelcona 
_Erasekect 
PEA Rectangle£f face 
EraseRect 





MOVE.L RandieControle2(A5),-(5P) 
MOVE é-1:-{5P} 

_HiliteCectrel 

CLR.B  NomVolumelAS} 

ATa 


ValideMenus 
SOBQ.L #4,5P 
FrontNWindoe 
MOVEA.L. (SP]+, A4 
HOVEQ 40,05 
CMP AUeerKiné, windomt£nd( A4) 
BNE.3 FénetréAccessoire 
TST7.B DrNenvFichier (A5) 
BNE.S ei 
st DrMenuFichier (A5) 
MOVE.L bandleMFlchier (A5), —[S5P) 
MOVE #mOuvrirl,-(sP) 
_Enableïtem 
(OyB.L HandletéFichiar(nas},-(5P) 
MOVE AnOuvrir2,-(sP} 
_Enableltem 
MOVE.L BandleMfichier (A5),-(5P) 
MOVE HEatmer,-(SP} 
_Disablelten 
ADDQ st,n5 
@i TST.3  DrMenuEdition(as} 
BEQ.S e2 
sr DrHenutäiron{as} 
MOVE.L Bandilet#£dition(A5),-(52} 
CLR -(s?) 
_Disabielten 
ADOG 1,05 
027 TST.B DrhenuMde{(aS) 


8NE.S a3 
ST DrbenuMmode {AS} 
MOVE.l. HandleM#Mode(AS),-(SP) 
CLR —(se} 
-Enableïtan 
ADDQ #1,D$ 

@3 TST DS 
BEQ 84 
_DrawMenuBar 

@4 ATS 

FecetreAccaesoire 
TST.8 DrMenuFichier (A5) 
HEC.S 81 
SE DrMenuFlchier(A5} 
NOVE.1. Handle{fichier(n5),-(5E) 
MOVE enouvrirl,-(5F) 
_Pisableïltem 


NOVE.l. HandleMFichier (AS), -(SP) 
MOVE faouvrir2,-(SP} 
_DisableIren 
MOVE.L BandleHPichier{AS],—(SP) 
MOVE tnFoimer,-(SP) 
_Enablelten 
AD0Q #1:05 

81 TST.B DrenuEdition (A5) 
BNE.S e2 
sT DrMenu£dition([A5} 
MOVE.L BandiemPditioeæ(ASs),-(SP) 
CLR -($P} 

Enablelten 

ADOQ  #1,95 

02 TST.B DrkewnuMode (A5) 


BEQ.s 83 
3F DrenuMde(AS} 
HOVE.L EHandletMode(AS},-(SP) 
CLR —(s») 
_Pisablelten 
ADOC 1,D5 
@3 TsT Ds 
HEQ 84 
_DrévéenuBar 
@4 RTS 
MarqueHods] 
MOVE.L EHandlelfiode(xs),-(SP) 
MOVE fmRecept on, -(BP) 


MOVE.B #255,-(5P} 
_Checklten 
HOVE.L HandleëMode(A5},-{52} 
MOVE #mEnvoi,-(5SP) 
CLA (sr) 
-Sheckiten 
ATS 

MarçueMHode2 
WOVZ2.L Handle#ode(AS},-(52) 
MOVE fanReæption-(5?}) 
CLR -(52) 
_CheskIten 
MOVE.L Bard'e#oda(AS),-(5F) 
MOVE mEevoi,-(SP} 
MOVE.B #255,-(5P) 
_Check ten 
RATS 

Cont envCommsn 
MOVEA.L. (AS) ,AO 
PEA gray {A0) 
_LFenrat 
PEA AectangieVolure 
FranekRect 
PER Rectanqlestasus: 
_Framekect 
HMOVE.L #5006E00CB,-[5P) 
_HoveTe 
MOVE-L 6S006E01CD,- (SP) 
_LineTo 
MOVE.L 45002000D0,-{(57) 
hoveTs 
HOVE.L 45002001C6,-(8P) 
_LineTe 
enNormail 
PEA RectanglenRi veau 
_FrameRect 
MOVE.L #300590140,-(3P) 
_HoveTo 
MOVE.5, #$0061016D,-{SP) 
_LineTo 
MOVE.L #$005901CD;-(5P) 
_MovaTo 
HOVE.L #5006101C0,-(5P) 
_Linezo 
MOVE.L #$00630l4n-(SP} 
MoveTo 
BOVE.L 4$006301CD,-(SP) 
_LineTo 
MOVE {monseo, - (SF) 
_TextFont 
MOVE +3,-(5P) 
_TextSiie 
HOVE-1. 4$0060014F,-(SP) 
MoveTo 
PEA ChaineZero 
Dravstring 
HOVE.L #$00600185.-(5P} 
Move?To 
PEA ChaineCent 
_DrawString 
MOVE ésysFont,-(SP} 
_TextFont 
MOVE #12,-(8P) 
_TextSize 
RTS 


BffichecontenuF2 
MOVE.L 4500280010, —{SP) 
MoveTo 
P£A NonFichier (AS) 
_DrauBtriag 


MOVE.L #S00880010,-(5P} 
_MoveTo 
PEA ChaineP1 28 10 nè 
_Draw$tring 
PEA TybeFichier+ 1 (AS) 
_DrawString 
HOVE + /',-1(5r) 
_D:awhar 
PEA Createurrichier+1(a5) 
_Lraw3t=ing 
MOVE.L #800580010,—(SP) 
_HoveTs 
PEA NombrexkoEX vol (AS} 
_Draw$triag 
PEA ChaineEm1ss 1en3 
_Prawstrinq 
PEA NombreOctets {AS} 
_Drawstring 
PEA ChaineEm1as#i0n4 
_Oramw$t=1ng 
HOVE.L #800680040,-(SP) 
_ovato 
PEÀA ChaineDate (A5) 
_DrawString 
ATS 

Oùvreserie 
PEA TamponlOSore (AS) 
PEA Sert 
B8R ouvres 
PEA TanponlOEntre (AS) 
P£A Entre 
B3R Ovres 
ATS 


Quvres 
LINK X6.:40 
MOVEA.L 17 (AS},A4 
HOVEA.L A4,A0 


MOVE.L B(A6),1oFileName (A0) 
CLR.B ioPermssn(A0) 


_9pen 
BNE.S @1 
MOVEA.L A4,A0 


MOVE 48, csCode (A0} 
MOVE #94+1024+I63R4+1228B, cs?atam(AO) 


_Control, Inmed 
BNE.S ei 
HOVE.L 4800,D0 
_Newrer, clear 
BUE,S 1 
HOVE.L AG,Al 
MOVEA.L A4,AQ 


HOVE #9,csCodelA6) 
MOVE.L Al,csParam (AO 


MOVE 48090, csPar a+ {A0) 


Control.imed 
BEQ.s 62 
ei Move +2,.-15P) 
BSR Erreur 
_ExitToShell 
e2 UHLX A6 


WOYE.L (SP),84{SP) 


ADOQ.L #8,SP 

RTS 
RectFsenetreli 
RectFenetra2 
Ractanglalimita 
Eectanglevolusa 
BectangleBoutoni 
RectangleBevton2 
RectangleBoutoni 
Pecanglmicone 
RectanÿleL£Face 
Rectanglestatus 


Rectangieiffeeef ichier 


RectanglsEffacelnfol 
RectangleF ffacelnfc2 
RactangleEFfacelnfo3 
Titre 

Titre 
Chainefeception]l 


Chai naReception2 
ChaineEmissionl 


ChatneEhizsion2 
ChainePm1zs31on3 
ChalneEnission4 
ChoinaEm1331ons 
CnaineëtatR 


ChaineËtatE 


ChaineZero 
ChaineCent 
Titresauton] 
Tic reBautan? 
TiteteBoutoc3 


TitreBoutonlFè 


TitreBantonAnneler 
TYDSTENT 
CreataurWrite 
Cresteur£dit 
Creatavur 
Dialoque 
HomAééassoire 
EncegEvents 
HandlekP come 
SandleMichier 
BandleÆditlon 
Handlel#ioia 
Article 
SauvePort 
PeilnteurFæenebrei 
Fointeur Fenetre? 
Driver@urant 
Eandle@ntrole 
BandleControlal 
Bandle@ntrols? 
BandleŒntrole3 
BandleCcntroleir? 
Aenvelune 
KomFichiex 
NomFichierRecu 
NowFichier Modif 
NoæmbreX 
VoluaeCoureet 
Dr3pœeauuv 
DéfautEiscte 
TarpaniO 
TazponTemDoraire 
TampanTemporaireF 
DrMenvFichier 
DrHenuEdition 
DrHenuMode 
DrBcutonLectevr 
P&sDePlace 
DrChol»Fichisz 
ReponseGatFile 
NombrekKoËnvol 
CraateurFichler 
EembreOcters 
TypeFichier 
ChainaDate 


RER # BRRRR R RHERR RE RRARRRRERRERHERER 


Ds.B 
DS.B 
Ds.» 
D8.B 
DS.E 
0S.B 
DS.B 
DS.H 
os,» 
05.2 
03.5 
Ds,B 
Ds.B 
05,3 
vs. 





50,8,169,478 
200,8,319,47E 
28,4,334,508 
8,8,111,191 
70,56,B0,164 
89,56,107,2P4 
89,200,207,328 
72,16,104,48 
23, 16,58, 184 
8,200,78,462 
27,16,41,189 
éi.48,77,189 
77,16,93,189 
93:64, 169,189 
9, "Réception 
8, ‘Emission ,0 
23, 'Récæption 
sur le voluee' 
10.°Ko 11bres)°,0 
19, '"É»ission du 
fichier! 

5, ‘Type 
3,'ko/' 

7,° octata' 

8, 'eréé Je *,0 
2,'État do la 
réception’, 0 
19:'Étar de 1° 
féaissien",0 
2, 0%°,0 
4,*100%°,09 
T,'Lectevr: 
T:'Zjecter' 
17, ‘Attente des 
blocs" 
15,'£nvoi des 
blocs” 
7,'Annulez* 
“TEXT* 


10F0E15S11e 
1oFQElsize 
1oFQz 13510 





Pom's n° 28 











Entre DC.B 4,'.Ain°,0 
Satt pc. Srt.Aovt: 
Tampon IOEntre Ds.2 16F0E18ise 
Taapon!G$ort 05.8 deFQEls1ite 
TasponSortis 25.3 700 
TaaporEntre 05.3 700 
Rect£ffMesal DC 26,201,60.456 
BectEf £Mens2 oc 60,208,76,456 
RectEf£fMess12 nc 36:2089,76,456 
Cod# Ds 1 
NombreOcteteio 0S.L 1 
Wuserohloc Ds 1 
Koab reKOWus Ds.L 1 
NoebreBlocRacu DS.L 1 
Woab reOctet Racu Ds.L 1 
WNuseroBloelettre 05.8 € 
CodeConnexion Dc.8 27,57,104,0 
CodsDa connexion 0c.8 27:57103,0 
CodeCpgosit ina oc. 27,57:)11,0 
RectangleN1vaauzB Ds 4 
Rect anglaN1 veau DC 99,333,107,462 
RectangleEffaceNiveau oc 1909.3224.105. 461 
PactangiaEffacativeauz OC 99,334,99, 461 
Wuserckaf Ds 1 
PichierTexte2 vs 1 
NOcter « Ds.L l 
DrAbandon Ds Li 
NcabreBlocsD Ds 1 
NcabreBlecsh Ds 1 
NcabraBlocsT Ds 1 
NoebreBlocEmis Ds 1 
CorPteurBloca Ds 1 
ComPteurEnse1is bs 1 
Tablerquival DC.B 3$,*£" 

DC. 64, 'a' 

DC.B LOU 

DCc.B 92.'<" 

DC.B 53,°s" 

DC.B 123. 'èt 

DC.B 124, 'èt 

DC.B }25,"è 

DC.B 126,°" 
CoxpteurTiming DS.L 1 
NombreH0 Ds 14 
NombzreBR os 1 
ci oc.s 29, Attente du bloc de contréle”" 
c2 0c.8 30, ‘Recæptlon du bloc de contrôle _” 
C1B oC.B 29, ‘Émission dv hloc de contréie_" 
C15 0C.B 34, ‘Annulation desandée par 

l'émetteur" 

cis oc.B 26, "Annulation demandée par lo‘ 
e27 oc.B 9%" récepteur’ 
c23 OC. 29,°3" peur prévenir l'‘ésetteur_" 
Ci6 OC.B 22.'Pae assez du Dlace sur ce veluse” 
c3 oCc.B 21,"@écspt ion du fichier * 
Ca DC.B 28,* blocs! dspuis un * 
C5 oc.B 16,"Attente du bloc * 
cé oc.B 18," Réesption du bloc * 
c20 DC.B 17,'lmissien du bles * 
c7 DC.8 30,°11 noue fout, hélas, renoncer." 
ce DC.B 22." Transmission teralnée.* 
C3 DC.B 3, ‘Macintosh" 
c10 0C.B  8,'Apple ][" 
€cli oc. CAS 
c12 oc.s 3,.°1a4 
c13 oc.B 1), serveur ÿem''e" 
Cl4 0C.B 1% ‘Annulation denantée 
cit oc.8 26, "Liaison evec le récoptaur..' 
€C21 OC.B Z4, 'Lieison avec l'émetteur" 
C22 0C.s 
C4 DC.B 20.‘Réemissino denandéo.‘ 
C25 DC.B 22, '"CanFirestion en coute." 
Cc26 0C.E 20, "Annulation en coure_" 


C28 D.B 1$.° (autusetiquo).' 
c29 oc.B 11,’ (demaridé) .‘ 


c30 D0C.B 17, blec) depuis un ! 
CMF DC. * .IMCCMPLET‘ 
*ALIGK 2 


Fichier ‘InterPom's/2.Asm' 


Reception 
BSR Montre 
CL NusoroBloc (AS} 


HOVE.L +#50064014E,RectanglenNivsauRB+top{AS] 
MOVE 4106, Rectangle}{vasañÿ+bottca(AS) 


PEA CdsŒnnex1on 
BSR CodcHinitel 
HOVE.L BandleControls3(AS).-(5Ph 
PEA TitreBoutonAnuler 
_SetCTitle 
PEA TamponiOEnRtre (AS) 
BSR VideBuffer 
Artenceplo“Controle 
81 ESA WACKx10 


HOVE Code(As},D0 

c#1 #508,00 

B£Q.S LectureBlocCoatzols 
CHP1 #CAN,DO 


BNE.S 22 
BSR AnnulationEnetteur 
BRA FinReception 

82 CPI #CAB_U:DÔ 
BUE.S 43 
BSR PnnulationUt itisateur 
BAA FänRocoption 

23 OP! ACAN_A, 00 





Pom's n° 28 


BUE.S e4 
35R AnnulationAbandon 
BRA FinRecept ion 
24 2sR CodeDifferent 
BRA.S ei 
LectureBlocControle 
3SR Bloontrole 
MOVE Code (AS) ,00 
B2Q.S  Contonufeader 
CP ?CAS _À.D0 
BNE.s el 
BSR AnnulationAbandon 
BRA FinReception 
e1 OæI 2NACK, DO 
BNE.S AttenteBlecCont role 
BSR CodeDi fferent 
BRA AttenteBlocCont role 
ŒOntendhasder 
MOVE.B TamponEntre#®ypePsetteur{AS), DO 
BYE.S es 
BSRA ReceptionMac 
BRA.5 FinReception 
95 Bsone.s f1,00 
EBE.S e6 
BSR Recepi1onAppla 
BRA.S Finsesept joe 
@& suso.3 #i,DD 
BRE.S 87 
ESR Beception!IBM 
BRA.S PinRecsption 
07 BSR Feceptionser veur 
Fia£ocaption 
PEA CodæeDaconnsxion 
BER Codeminitel 
MOVE.L HandleContrale3(as},-(3P} 
PEA TitreBouton3 
_SetCtitle 
_InitCursor 
PEA RectEffMess12 
_!rasefsct 
PEA Ractangleiffacehivaau 
_EraszePect 
PEA RactangleRffaeahiveau? 
_Erasekect 
MOVE.L vcbQSdr+2,A3 
HOVE Volwwe#urant (AS) ,D$ 
42 ©oe vebVas f5un A3) ,DS 
BEQ.S ei 
MOVZ.L (A31,A3 
BRA.S 2 
@1 BSA VolumeScivant? 
3SA AS£Roe 
RTS 
CodeDi fferent 
PEA cz4 
BSR AZFicheM2 
PEA RectangleEffacehiveau2 
_EraseRect 
BSR Attenreé 
PEA RectEffMess2 
_Erasekeot 
ATS 
RecopriokAapple 
HOVE.E Teepon£atre+TypeText aApple(A5},D0 
CMPI.B #1.00 
BES.5 es 
cmP1.5 #$19,00 
B£Q.S es 
Qæ1.8 #$1lA,D0 
BEQ.S as 
CP1.B 9#$IB,D0 
BRE.S 86 
es ss FichierTexte2 (A5) 
MOVE.L CreateurWrite,Createur[As) 
BRA.S e7 
86 sF FichierTexte2 {AS} 
MOVE.L CreateurEdit,Creatour (AS) 
87 MOVE.L NombreBlocRaeu (A 5),D0 
LSRA.L #:,D0 
QP.L Wéb zm#0Wos (AS) , 00 
BI.S el 
BSR Beep? 
PEA clé 
BSA Aff1cheh] 
as Beapo 
R?S 
91 55h KouveayuFichier 
BEQ.S 15 
RTS 
@15 MOVEQ ,0,D0 
5sR OuvertureFichier 
BEQ es 
RTS 
$4 65R ChangeNameroBleo 
615 BSR AfficheAttenteBloc 
MOVE. #ACK, — {SP} 
BSR EnvoiCode 
82 35e TestaTimaqut 
BEQ.S 828 
S5R AnnuiationAbandon 
BAA AbandonReceptionApple 
026 5SR TesteAnnulern 
TST Code (A5) 
BE@.S 820 
BER Annvlet£onutilisateur 
BRA AbendenHecept ionAppie 








dz0 86 AttenteLiaisonEmetteur 
TS? Code (AS) 
BEQ.S e2 
B3R CetTiver 
HOVE Code(AS),D0 
CP] 4304, 00 
BEQ.$ û1sa 
Gel! 4CAN, DO 
BNE.5 eu2 
LELI AnnvlationEnet teur 
CLE) AbandonRecep:1onApple 
022 cri *207,00 
BEQ FinReceptionApple 
t24 psA CodeDifferent 
227 BSA AffichaAttenteBloc 
Lo #RACK: - (58) 
B5SA EnvoiCode 
88A.s 2 
t19 PzA cé 
B5R AE FLcNoËSl 
PLA Wuse coëlociettre (AS} 
_Draw8tring 
BSR Litésloc 
MOVE Code(AS}, DO 
6r0.s 016 
opt +CAN_A,D0 
BNE.S 623 
BSR AnulationAbandon 
BRA AbandonRecept 1onAppi a 
423 BRA.S @24 
416 85R VerificationBloc 
HOVE Code {AS),D0 
BEQ.S €3 
CPI #01F.DO 
BNL.S 425 
B#R AfficheAñttenteBloc 
HOVE tacK,-(sP} 
BsR EnveiCode 
BRA e2 
4es CPI #CAN_A,00 
BNE e27 
BER AnnulatlonAbandon 
BRA AbandanRscsptionApple 
#2 ss DecodeBloc 
TST.B FichierTexte2(AS} 
BtQ.s es 
BSR NodifsFichier Texte 
05 sx SPHiveauBecept ion 
Bsh EcritBlocO1sqve 
BEQ CO 
ATS 
FinñeceptionApple 
HVE AC. -(5P) 
BSR EnvoiCode 
PEA Rect£ffMsan2 
_Eroseroct 
PRA « 
E3R Affichen} 
LEA TanponlO(AS) ; AO 
MOVE.L NombreOctetRecu(AS), ioLEOF (AO) 
_Setor 
un sr DrAbandon (AS) 
BRA.S ARA2 
AbandonReceptionApple 
aT DrAbandon (AS] 
ARA2 
B&R FervsetureFichier 
sk LirelnFarichier 
B£Q.S €3 
ATS 
92 LEA TamponiO(AS),A0 
MOVE.L #'TEXT',10PlUsrNäs+fadType (A0) 
MOVE.L Craateur(AS},1oFlUarkda+fäCreator (A0} 
_8etrileïnfo 
62 ?ST.5  DrAbendon(Às) 
260.5 81 
Bsh BenonserFichivr 
al Bsk MiseJourVoluse 
BsR Tenpo 
AetourRecept iorApple 
ATS 
AfficheïtrenteBloc 
PLA RectEffMe sa? 
—EreseRact 
PLA cs 
39R Affiche] 
PEA FusercBlocLettro {AS] 
_0ravstring 
R?s 
Attente 
MOVE. L 
3080 
_TickOount 
MOVE.L (SP)+,04 
ADO.L DJ,D4 
@1 _SystenTask 
SUBQ 44,52 
_TiekCount 
CMP.L {SP)4,D4 
BA1.S CH: 
PLA Tampon lOEntre (AS) 
ssR VideBuffer 
RTS 
Bioontrols 
PEA Ract£ffMesal2 
_ErsseRect 
REA c2 
















































































































48 





BEQ.S 





BSR Affiche] 
ESR Lire Bloc 
TST Ceda{as) 
BEQ.S e3 
RATS 
as BS5R Verificati loc 
TST Code LAS} 
BEQ.S ei 
RTS 
81 BSR Demdesiec 
BSR DeplaceNFA 
CPI.E #APDlall,TasponEntre4TyDez=etter- (AS) 
BNE.S e13 
BSR HinusMaïus 
@13 8SR LonQgeuurNomFichier cu 
MOVE 47,-(sP} 
_5Ysbeep 
PEA c3 
BSA Affiche] 
PEA NomF £chierReog (AS) 
_Draw$tring 
CHP1.,B H#Appiell. Tampensntre+TyPetoctteur (A5) 
BEQ.s  G10 
MOVE TamDonEntre+NBlocsTotal (AS), DU 
ERA-S e7 
4t0 SP SFNonbreDctets 
MOVE. HonbrnüctatReen (AS},D0 
MOVE #512,01 
DIVU D1,D0 
SA? D9 
EST Do 
BEQ.S ea 
SN? Do 
ADDB +i,p0 
BRAS 87 
C4 SNA Du 
87 ANDI,L #$FFFF,D0 
MOVE.L D0»NonbreBiccRecu(AS) 
LEA scratch20,A0 
CLR -(5P) 
Peck7 
MOVE.L #$#00480000,-{52) 
_HovaTo 
HOVE 4 C.-{sPr) 
_DraeChar 
PEX scratch20 
_Drawstring 
C1 41,NonpreBlccaecu+2 (AS) 
BGT.S 411 
PEA c30 
BRAS e17 
@1; PEA C4 
812 _OUrawsString 
HOVE.B ?aaponEntre+TypeËmetteur {AS),D0 
PNE.S e2 
LEA C8, A0 
BRAS es 
EZ 6SUBQ.B #1,D0 
8NE.S 03 
1EA c10,Aû 
BRA.S 85 
@3 subQ.B 41.00 
BNE.S 84 
LEA €C12,:A0 
BRA.S 65 
@4 LEA C13,A0 
@5 HOVE.L: AU,-(5P} 
Drenñtcing 
BSR Tempo 
CLR Code (AS) 
RTS 
DeplaceNFR 
MOVEQ +0,20 
MOVE.B TamponEntre+NocFichierhpple(AS),D9 
ADDQ #1,D0 
LEA TanBoñEntrasNomFichierApgle{AS),AQ 
LEA NomFichierRecu (AS) ,Al 
_BlockMove 
RTS 
MinusMajus 
LEA NonFichierReeu (A5) , A0 
HOVE.B (AO) +, D0 
BET be 
ABD@.L #41,A0 
SuBQ 62,00 
81 MÔMOVE.Ba (AÜ),D1 
C#1.B 4'A',01 
BM:.s 2 
CMP1.8 #'£°,D1 
ecr.s LEA 
ORI.B #32, (AD) 
BRA.S 43 
@2 ADDQ.L #1,A0 
3 DBRA D0,@1 
RTS 
LireBloc 
MOVE.3 1,TamPônEntre (AS) 
@2 LEA TorDonIQEntre (AS), A0 
MOVE. +2, cacode (AD} 
Status, Imsed 
BEQ.S 6 
eu? MOVE #2;-(se) 
BSR Lzreur 
_ExitTaShell 
86 LEA TamponlOEntre{AS),AC 
TSP.L csParan {A0} 


e2 


3SR GetTiner 


LEA Taoponlornsre (AS}, AO 
HOVT.L 41,10ReqCeunt(A0} 

Lea sérazch£, A3 

MOVZ.L A3, 1oäuffer (AD} 

MOVE #fsTrsnStart , 1orosMode (A0) 
CTR:L ioPosOffset (AG} 

_Read 

BNE 87 

KOVE.S (A3) ,TamponEntre+1 (AS) 
PEA Rectangles ffaceNiven:2 
_EraseRect 


CLR.L NOctets (AS) 

Êl Ex TanponlOEntre(AS), A0 
MOVE #2,ceCode (A0) 
_Status, Inned 
BNE e7 

TasDon1O0Entre (AS), AÛ 

KOVE.L csParam(AO}.DS 

CHP.L  NUctetsa(A5}, DS 





BNE.S (4 
BSR Ver1f?ining 
TST Code (AS) 
B2Q.S 43 
BRAS 5 

84 SUBO.L 64,5P 
_TickCount 


MOVE.I, (SP)+.CompteurTinirg{As} 
HOVE.I. DS,NOctets (As) 


ZLSR +4,D5 

MOLO +2,05 

A00 334,05 

HOVE.L #$0062014E,-(SP} 
Movezo 


MO DS,={52} 
MOVE #50062,-(8P} 


83 CRI.L 6687.D5 
sM1.5 ei 
MOVE-L 4687, io0ReqCount{A0) 
LEA TanponEntre+2{A5s),;Al 
MOVE.L Al.{oBuffer{A0) 
HOVE 4£sFrowStart,10Pc3Mode(A0)} 
CR.L 1cP os0£fset (A0) 


_Resé 
BNE e7 
CLR Code (AS) 
es ATS 


Ver:fliming 
SUBQ.L 4,5P 
_TickCeunt 
HOVE.L  (SP}+,D0 
SUB.L CompteurTiaing (AS) ,D0 
cæ1.L #30,D0 


BMI.S 63 
MOVE SNACX, Code (AS) 
BRAS 02 
43 CLR Code (AS} 
@2 RTS 
AAC:Cx10 
PEA c21 
BSR Affiche] 
MOVEQ +2,75 
03 BSR Unessconde 
DBRA D5,23 
PER TanponiOTNt=e{AS } 
BSR Videsuffer 
MOVEQ  #1,D5 
el MOVE DS,-(SP) 
BER AffichaNumEssai 
MOVE FRACK, — (Sp) 
BSR EnvoiCcde 
BSR Dixsecondes 
TST Code (AS) 
B E.S 92 
ADUQ 91,05 
OI sa,ps 
BNE.S el 
MOVE #7: -15P) 
_SFS5eeD 
MOVE @CAN_A, Code {A5)] 
€2 RTS 
DixsSecondes 
MOVE.L #300,D3 
SUBQ #4,5P 
_TickCount 
MOVE.L (sP}#,D4 
ADD.L D3,D4 
1 BSR TestaAnnulerk 
st Code (AS) 
BEQ.5 ga 
MOVE #CAN_U, Code {A5} 
BAA.S 83 
@4 BSa AttenteLiaisonEmetteur 
TST Cede {AS} 
BE.S 
@2 sosQ t4,SP 
_TickCount 
CMP.L  ({sP)+,04 
BEL.S el 
83 RTS 
AnuviationFnatteur 
MOVE #7,-(SP) 
_SYSRerp 
PEA c1s 
B5R Af£ichettl 
PER c2s 





ESR AfficheM2 
BSR TroisACK 
RTS 

AnnulationUtilisateur 
PEA £26 
BS8 AfficheM] 
PER RectEffMess2 
_Erasekect 
BSR TroisCANCEL 
RTS 

Annulat ionAbandon 
HOvE #7,-{sr} 
_SysBeep 
ÊPEA co? 
BSR AEfichesl 
PEA c23 
BSR AfficheM2 
BSR TroisCANCEL 
ETS 

TroisCANCEL 
MOVEQ  4#2,D5 

8l MOVE 4CAN,- (SP) 
BSR £EnvoiCede 
BSR Uneseconds 
DBRA 25,4] 
RTS 

‘ÎroisACK 
HOVEQ  42,D5 

El MOVE #ACK,- (SP) 
BSR ZnveiCeds 
BSR UneSncende 
D8RA D5,e1 
RTS 

TroieEOT 
HVER #2,D5 

1 MOVE 4EOT ,— (SP) 
BSR EuvoiCoda 
SsR UneSeconde 
DBRA DS,4) 
RTS 

EnveiCede 
LIRE A6:90 
LEA TaaporTOSort(AS},A0 
HOVEC  #1,DQ 
HOVE.L, DO,1eReqCount(AC) 
IEA Taaponsortie (as) ,Al 


MOVE.L Al.loBuffer (AÛ) 
HOVE.B 9{AS),TanponSortie (AS) 
MOVE #£aFremStatt, 1cPosMode(AO) 
CLR.L 1oPoaGffsat (AO} 
_Write 
BEQ.S 1 
MOVE #2.-(SP) 
BSR Erreur 
_ExitToShell 

@2 UNLX A6 
MOVE.L (52},2(5r) 
ADDQ.L #2,5SP 
RTS 

UneSeconde 
MOE.L #60,D3 
sur 44,58 
_TiekCount 
MOVE.L ({BPj4+,D4 
A90.L 023,04 

@1 _SystecTask 
sux 34,SP 


_TickCount 
CM?.h  (sP)+,D4 
BE1,5 ai 
RES 
Tenpo 


HOVE,L #180,D3 
suBQ  $#4,5P 
_'ickCount 
MOVZ,L (SP)+,D4 
ADO.L 03,04 

81 SUBQ 44,5? 


_TiekCount 
CHP.L.  (SP}+,D4 
BB1.5 el 
RTS 
CodeMisitel 
LINX A6,90 
LEA TanponlOscrt (AS), A0 


MOVEQ  #3,D0 


MOVE.L D0,16ReÿCount(AO) 
LEA TanponSortie(nas}),Al 
MOVE.L Al:4o3u£fer (A0) 
MOVE.L 8(A6}),A1l 
MOVE.L (A1},TaapocSortie(AS} 
MOVE 4£fsFronsStart, {oPosMode (AU} 
CLR.L icPoso£fset (A0) 
"rite 
BEQ.S el 
MOVE #2,-{sP1 
CEE Erreur 
LEx1troshell 

81 UHLR A6 
MOVE.L (sPl,4(se) 
ADDQ.L #4,5P 
RTS 

AomExistant 
1EA NowFichierkReou (AS), A0 
HOVE.B  (AQ),D0 








Oæ@1.8 #62,00 

BMI.5 Hoins62 

MOVE.B 62(A0),D1 
Q@1.B 4°.',D1 

BEG.5 Dejamodifrlusé2 
MOVL.B *.62(A0) 
MOVE.B 4#'A'.63(N0) 
MOVT.B 663,(A0) 





RTS 
De jaModi fPlus62 
#1 ADDQ.S #1,62(A0) 
Q@1.B +':°,62 (A0) 
BEQ.S el 
R?S 
Hoina62 
ET 00 
HOVE.B -2(AD,D0),D1! 
C#P1.B 4'.’,D1 
BRQ-S DejaModif 
MOVT.B #'.’,1(A0,D0) 
MWOVE.B #'A'.2(A0,D0) 
ADOQ.n #92,(A0) 
RTS 
Dejamoéif 
@1 ADDO.B #61,04{20,D0) 
CHI,B #'1',0(A0,D0} 
BEQ,S 1 
RTS 
A£ficheM]l 
LINK 16,40 
ELA RectEffMensl 
_Erasehect 
MOVE.L 4$003800D0,-(3P) 
_MoveTo 
HOVE.L, 61(A6},-(SP) 
_DrawString 
ONLK A6 
MOVE.L (3F),4(5P) 
ADDQ.L #4,5P 
RTS 
Affiche#2 
LIhx A6, 00 
PLA RoctEffWens? 
_EraseRect 
MOVE-L 6300680000 ,-182) 
_MoveTo 
MOVE.L B4{A6).-(5P) 
_Drawsering 
ONLR A6 
HOVZ.L (3»),445P} 
ADOQ.L t4.sP 
R?s 
AfficheNwmEssai 
LIKK À6.30 
HOVE 8(a61,05 
CMPI #1.DS 
BEG.S 81 
PEA RectEffMoss32 
_EraseRent 
HOVE.L 4#5004800D0,-{SP} 
_HoveTo 
MOVE DS,D0 
EXT. 1. Do 
LEA sorat chB,A0 
CLR -(3P} 
Pack? 
PEA scratehB 
OrawStr£ng 
PEA c22 
_DrawString 
@1 UXALK A6 
WOVE.L, (sp),2(8F) 
ABDO.L #2,5P 
RTS 
AttentaLinisonrettaur 
LEA TamponIOEntse({A$ ), A0 
MOVE #2,csCode(A0) 
_Status, lanad 
BEQ.S um 
25 MOVE °2,-15?) 
as Erreur 
_ExitToshell 
84 LEA Tanpon1lOEntre [AS) , A0 
T3T.L csPar emiA0t 
BPO.$ €@2 
WOVE.L  61.1oMeq@ven t { A0) 
L£A ecratch8,A3 
&OV£.L A3.1oBuffaz {AD) 
eve +teFroeStart. {ofosMode {A0 
CLR.  1oP0950ffaat A0} 
Read 
BNE.S as 
MOVE.B (A3).D0 
ANDI.B #$7%F.D0 
ext Lee] 
MOVE 20, Coda (AS) 
BRAS 63 
@2 CLR Code (AS} 
83 RTS 
ModifsFichierTextan 
MOVEQ #12?,D0 
LER TanDonËnt ra+TypaEmattaur(Ast, A0 


ai 


ANDI.L #$77F7F7P8, (A0)+ 
DBAA n0,ai 

LEA Teblezquival.A2 
MOvzQ 616,02 








22 MOVE.B O(A2,D2),D0 
MOVE +511,D1 
LEA TasporEntre+Typebpattaur (AS}, AO 
E4 CHP.B fA0),D0 
BEQ.S 85 
ADD09.5. #1,A0 
BRA.S ee 
25 MOVE.B 1(A2,02), (A0)+ 
06 DBRA D1,84 
supQ 4#2,D2 
BGE.S e2 
R?s 
Fichier ‘Inter Pom’s/3.Asm' 
Enission 
358 Montre 
CR Nuserc35loc (AS) 
ŒR WoabrealocPn:s (AS) 
MOVER.L {AS),A0 
PEA ltgray (A0) 
_PenPat 
PEA fsctangleEffaceNiveat 
_Paint-%et 
_PenNoraal 
MOVE 450064, tectangleNiveauRS+Eop (AS) 
MOVT.L #S006A02CD,RectangleniveauRB4bottom (AS) 
PEA TampenlCEntre{AS} 
35E VideBu££er 
PEA Codefpposition 
3S5R CodeMinitel 
PEA Codecencexien 
BSR Cedeiritel 
MOVE.L SandleContraïelr2(nA5},-{$P) 
PEA TitreBoutonAnnülez 
_setCTitle 
LEA TamponTemporaire (AS),AO 
LEA Tamponsortie-TypeEmotteur (AS},Al 
MOVEQ 410FŒ151ize,D0 
_BlockMove 
MOV=£Q 30,00 
HOVE-E ReponseGetFilasrtiase (AS) ,DÙ 
ADDD 41,D0 
LEA ReponseGetFileirNaze (AS) . A0 
LEA TanÿonSortie+MomFichierApple(AS5}, AL 
_Blockhoye 
LEA TauponSurt:e (AS), Z7D 
MOVE.L F$0COT:T7.Debut3loc(A0} 
CLR.B Typez=etteurta0) 
OP. #*2X7°, Typelpetteur-1oFl0s-Wdss 
fdType (A0} 
BNE-S e1 
MOvP.I1. #$4000000, TypeText añpple (A3 
BRA.S e2 
@I CLRB  TypeTextaApp_e (A0) 
@r MOVE.B TypeEmetteur+1071r _Qlen) (A0}, 
LoagEcg_ApD1e +2 (A0) 
MOVE.B Typelretteur-1o5l1qLen+2 (A0), 
LongLez_Apple+1{A0) 
MOVE.B Typelmetteur-loFiliLen+3(AO), 
1onglog_Aople (A) 
MOVE fLonqueurBlec, D! 
KMOVE.L TybeEmetteur:1eFlLgLen (A0},00 
DIVU D1,00 
SxAP Do 
TST D0 
BEQ.S 83 
SWAP Dû 
ADDQ #1,D0 
BRA.S e4 
e3 Ssna C1 
44 MOVE D0,NBlocsData(A0} 
MOVE.L TypeBnetteur +107 1AlgLentA9),D0 
D1W D1,D0 
SAP 00 
TET D6 
BEC.S es 
SRAP Do 
ADDQ 41,20 
BRA.S  @6 
es sw? DO 
e6 MOVE D0.H3locsRescurce )A0I 
ADD N31o caData (AD) , 00 
MOVE D0.#BlocsTotai (A0) 
MOVE D0,.NombreBlocs'F{AS} 
MOVS.B NSlocslotal+) (A0). HBlocsApple (Aaô} 
MOVE_B Nalocs3otal(a9),#RlocsApOie+1 (A0) 
MOVS NBlocsData (AS), NombroBlocsD (AS) 
MOVE RBlocsResoursa (A0},NoabreBLocsk (AS) 
BsR Date_Keure 
BSA Codesloc 
BSR Checks en 
PEA ci7 
ES8 AÉÉIheM] 
BSR AttenteLinison 
MOVE Code (As}. DO 
BGE.S 87 
BSR Abandon E®n1sslon 
BARA SoztiuE=£:ssion 
eT CHPI #CAN_U,D0 
BNE-S us 
BSR Arret£mission 
ERA SostieEmtssion 
@S cMPI 4€ AN,00 
BNE.S es 
BSR Annulat ionhkecepteur 
BRA SortieEnission 
@8 P£EA cis 


Ben Affiche] 
HOVE 41,Compteur£sseis(AS) 
ETOI1 
Bsx Enveilbloc 
.. psr Attente3locok 
TST Code {AS) 
SNI.S 8e 
ADDQ 11, ConpteurEssais (A5) 
ce FKcmbreMaxEesei+l, Coptevur=ssais {AS) 
BEQ.s di 
MOVE Comptevr£seaie{as),-{152) 
SBR AffichelubEssai 
PEA c28 
_Drawstzing 
BRA ETQll 
el 6$R Absndon®ission 
6RA Sorriezmission 
29 MOVE Cose{As),Dû 
oi eCAN:DO0 
BHE.S ZTTQl0 
BSA Annulat iornRecepteur 
BRA SortieEmission 
ETQI0 
CMP: #CAS_U, DO 
6xE.5 e2 
B5R ArretEmission 
ORA SartieMission 
42 Or #HACK, DO 
DUE,S A! 
ADDQA #1,Congteur£ssais (As) 
MOVE ComPteurEasais(AS},-(5P) 
Ban AfficheñumEssai 
PEA c29 
_Prawstring 
BRA ETQIl 
@ 157 WoabreHlocan (AS) 
BEQ BlocsRessour ce 
Bloceponneces 
HovR Woabreëicceli(As},CcepteurBloce (AS) 
LEA TaponIO(AS), AO 
LEA ReponseGetrile+rNamelAS),R1 
MOVE.L Al,ioFileNane (A0) 
MOVE ReponseCetF1lusrVoiune(Asl. 
10VRefNan!| A0) 
CLA.: 4oOunBuf{A0) 
MOVE.B (fsRdParn. io?ezmssn{AC) 
_Over 
BEQ.5 dl 
CR -(sP) 
BSA Erreur 
BRA Sort SeDs 10 sion 
a1 s5A Spfmisasion 
BE SortisaEsiaaion 
Bs:A Ferneturerichier 
Blacshossaurcm 
Ts? WoabreBioner (AS) 
BEQ Sortiokmi sein 
MOVE NoabreBiocsA (AS), CempteurBlocs (AS) 
LEA TenponiO(AS) , AD 
LEA FapoñseCetFile+rName{AS), Al 
MOVE.L Al,10F1leNane{a0) 
MOVE FeponseGetFile+rVolume {AS}, 
10VReFum(A0) 
CLR.L 4oOunB8u£ (A0) 
MOVE.B sfaRdEere, io?ereoen (A0) 
-0penRF 
BEQ.S ai 
CLR (38) 
BSR Erreur 
BRA SortioEniss fon 
@1 BSR Spmisaica 
LT Sort ieBnission 
FinTrenemies ion 
BSR FerzetureFichier 
Sortiefmianion? 
PIA RectEffhess2 
_Lraseñect 
PLA Le] 
335à Affichol 
BSA Trois£OT 
Sortisimission 
PEX CodeDeconnexion 
BSA Codeninit ei 
MOVE.L. HandieChntrolei72(ast,-(S2) 
PEA TitreBoutoniF2 
_SetC7itle 
_InitCursor 
PEA Aect£ffNoess12 
_Eraseñect 
PEA Fectenglelffacehiveau 
_Eresersct 
PIA Pectang lez Ffacerivepu2 
_EreseRect 
azs 
TesteAnnuler 
_PysteaTask 
suso #25e 
HOVE «2r-(sr} 
PEA EnregEvents (A5} 
_GetNoxt Event 
TST (Sr)* 
BEQ.5 RetourTesteAnnulerNon 
él sus 2,5P 
HOVE.L Enro0Event s+evtMouse (AS) {Se} 
PLA EnrogEventa+nvtMet a+2 (AS} 
_FindHindow 
CMP! finContent, (SP}+ 
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BaepTesteAnnuler 


MOVEA.L EnregEventstevtMeta+2(AS),A4 





srl  WRefCon(A4) 
BÉQ.S BeepTesteAnnuler 
MOVS.L Aâ;-(SP) 
_S#Port 
PZA EnregEventseEutieuse(A5] 
_GlobalTeLocal 
SUBQ.L #42,SP 
MOVE.L EnregEvents+EvtMouse (AS) ,- (5?) 
MOVE.L A4,-(5P) 
PEA Hand}eControle(AS} 
_FindCont ro1 
TST (SPj+ 
BEQ.S  BewpTesteAnnuler 
SuseL #2,5P 
MOVE.L HanéleControle(As),-(5P} 
MOVI-L EnregEvents+EvtMou sa{A5),—(SP} 
CLA.L - (52) 
_TracrControl 
TST 4SP)+ 
BzQ.s BeepTestaAnnuler 
SUBQ.L #4,5P 
HOVE.L HandleControle(AS),-({SP) 
_GetCRefCon 
HOUEQ 43.00 
2.1, {52) +,D0 
BNE.S BeepTesteannuler 
MOV2Z SCAN _U,; Code (AS) 
RTS 
BeepTesteAnnuler 
RSR Beap7 
RetcurTusteAnnulerhon 
CLR Code {AS} 
RTS 
Date_Seure 
WOVE.L Time,-(SP} 
HOVE.B flengDate,- {sp} 
PEA TamponSortie+Date(As) 
MOVÉ #10 ateString,-(S2} 
_Pack6 
MOVE.L Time,-{(SP) 
CLR —(sP) 
PEA TampenSortie+Seure (A5) 
MOVE #1UTimestring,-(sP} 
_Pack6 
&EA TampenSertie+Date[AS5),A0 
MOVE.B (AO).D0 
LAT D0 
MOVE,B #’,',1(A0.D0) 
MOVE.B 4’ ’,24A0,D0) 
LEA 3(A9,D0),A1 
LEA Tanpen$sort ie+Beure (AS},AO0 
HOVE-B (AO) e, DO 
ExT D0 
SsUBQ ‘1,00 
@1 MOVE.B (AO)+, (Al)+ 
DERA  D0,@l 
KOJE-B TamponSortie+Date {AS) ,D0 
ADD.B ‘YTarponSortierEovre (A5) ,DO 
ADDQ.B #3,00 
MOVE.B DU, ?amponsortieiDate(as} 
LEA TanponSort ieeDate (AS} À Ÿ 
MOVE.S (A0),00 
ext D0 
MOVE.B #'-°,04{A0,D0) 
ZTS 
CodeBlac 
LEA Tarponsortie+TybeEnestevr (AS), A3 
MOVE :70.DS 
MOVE Longueur BlocC=3, D 
HOVE tLongueurBloe-2,b3 
81 CLB8.L (sp) 
MOVL.B ü(A3.03),14(SP) 
MOVE.B 1(A3,D3},2($2) 
HOVE.E 2{A3,D3),3 {sP) 
8sA Codage 
MOVE.L ({57)4,01A3,D4} 
SUBQ 4,04 
SuBC #3,03 
DBRE Ds,0: 
RTS 
Cedage 
Nul SET 8 
@ctetl Set 9 
Octeti Set 10 
Octoi3 $et pal 
LINK A6,90 
M@VEM.L D0-D1,-(5P} 
MOVE.B OctetliA6) DO 
LsL 46,D0 
WOVE.I. Nul{A6},D] 
LSR.L #Nul,D1 
L5R 44,01 
NOVE.S D1,D0 
LSL.L #Nu1,D0 
MOVE Octet2(A6},01 
SA °6,01 
MOVE.S D1,00 
LSL.L txul,DD 
HOVE.B Octet3 (A6) ,D0 
ORI.L  #$c0c0C0c0.D0 
MOVE.L D0,NuL(A6) 
HOVEM.2L (SP)4,00-D] 
(WEX A6 
RATS 


2PA Tarponsc=tie:Type%ce:tour (AS), a 
MOVEQ +#,D0 
MOVE 683,01 

81 MOVE.S (AÔ)-,D2 
ANBI.H #SixFsibles, D2 
AOU.B D2,2D 
D3rA D1,@1 
OAI-3S ?DeuxForts,DO 
HOVE.S DD, (A0) 
RATS 

AttenteLiaison 
MOYE.L #3600,06 
sus ta,s? 
_TickCount 
HOVE-L ([S2)+,D4 
?D0.1. 93,D4 


81 3sR TestæAnnvier 
7sT Code (A5) 
BNE.S e2 
BSR AttentelLisziscrèacePteer 
TST Code (AS) 
SNE.S e2 
sue t4,5F 
_TicrCont 
CKP.L {Sè) +, D4 
Ba1.S er 
MOVE t-1. Cade{as) 
gz RTS 
Attarteiia!s0nRæceP:eur 
LPA TamponiOË£ntre(AS),AG 
gl MOVE #2,cscode{A0} 
_Status, inmed 
BEQ.S$ @4 
86 MOvz #2,-(SP}) 
BSR Erreur 
_ExitTeSshell 
@4 LEA Tampon Int ce(AS),A0 
TST.L c ar an (A0) 
BEQ.S 82 
MOVE.L #1.iofkaqCount (A0) 
LEA Scratch8, A3 


MOVE.L A3,1oBuffer (AO) 

MOVE ffsFrumStart, 1oPesHode {A0} 
CLR.L  1oPosOffset (AO) 

_Read 

BNE.S e6 

move.B (A3},00 

AND1 #57F,D0 

o#1.B {CAN,DU 


BNE.S e3 
MOVE DO, Code (AS) 
RATS 
93 OpI.B 6NACK, 00 
B8E.s 1 
HOVT DO,Code(A5) 
92 RTS 


AttenteConfirmeAnulation 
LEA Tampon1OzatrelAs}, AD 


ê1 MOVE #2, csCode (A0) 
_Status, Inmed 
BEQ.S es 

@5s MOVE #2,- (5?) 
BSE Erreur 
LEx{tToshell 

84 LEA PamponiOEntre (AS),A0 
TST.L ceParam(AO) 
BEQ.s 2 
MOVE-L ét,10RegCount(A0} 
LEA scratch8,A3 


MOVE), A3,ioBuffer {A0) 

MOVE #fsFrouStart, 1oPosMode (AU) 
CLR.L 1oPosOffset (A0} 

Read 

BUE.s e5 

HOVE.B (23},00 

ANQOI 437F,D0 

CP1.E fCAN,00 


BNE.S e3 
MOVE DO, Code (AS) 
ets 
83 CHÆI.B #ACX.D0 
3W2.S  @l 
MOVE #NACK, Code {AS} 
82 RTS 
AttenteRlocOK 


HOVE.L #540,D3 
SUBQ 44,5SP 
T1ckCount 
MOVE.L ($?)+,D4 
ADD.L 03,D4 


ê1 RSR TesteArnvler 
TSE Code {A5} 
BNE.S e2 
BSR AttenteCarBlecOK 
ST Cede {AS} 
BRE.S 02 
SUBQ #4,5P 
_PiekCount 
CHP.L {S2)4,D4 
B&1.s @t 
CLR Code {AS} 
82 RTS 
AttenteCarBlocOK 
LEA TonponloEntre{AS}, 20 
l MOVE #2,cscode (A0) 
Stà:us, Jnaed 
30.5 es 








@5s MOVE #2,-(5?) 
BAS Erreur 
—ExitToS$hell 

45 LEA TamponlOEntr a{ AS), A0 
TS2.L csParam(A0} 
SEQ.S e2 
HOVB.L f1,creQCount [AU) 
LEA acratch8,A3 
MOVE.L A3,1eBuffer(h0) 
MOVE 4farromStart,; 1oPesode {A0 
CLR.L 1oPosOfFsot (A0) 
_Read 
ANE.S a6 
MOVE.EB (A3},00 
AMD1 +57E,.D0 
CPI:B £CAN,D0 
BNE.Ss #3 
MOVE CAN ,Code(A5) 
BRA.5 82 

@3 CMPI.B JACK,DO 
BNE.S #4 
MOVE #ACX,Code(As) 
BRAS az 

@4 CHF1.B 6NACK,D0 
SNE.S ai 
MOVE #NACK;, Code (AS) 

g2 NTS 

Envoilblec 
MOYVE.L #$0062014E,-(SP]1 
_HoveTo 
MOVE.I. #3006261CD,-(sP) 
_LineTo 
MOVE.L fLondvesrBloc+6,FOctets (AS) 
LEA Tam0001I0Sart (AS}, A0 
CLR.L ioComplotieu {A0) 
MOVE.L élongueurBlocC+6, 1eRegCount (A0) 
“eEA Tanponscrtie{AS}, Al 
HOVE.L AlsioSuffer (A0) 
MOVE e£sFzunStart .£e?o sMode (A0) 
CLR.L doPosOffset (A0) 
_Mrite,async 
BEQ.S @1 
MOVE 42,-(SP) 
ASR Etrevr 
BSR FermetureErr 
_ExitloShell 

81 LeA Tampon]Oort({AS),A0 
TST 1oResult(A0) 
8NE.s 82 
PEA RectanglezffaceNiveau2 
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82 1oActCeunc {A0) ,DS 
MP,L NOctets(A5),D5 
BEO.s 1 
HOVEA.L (AS),A0 
PER whitæ(ao} 

_PerPat 

MOVE.L D5,NOctets {A5} 
MOVE.L êlongueurBlocCe6,D0 
soë D5,D0 

ISR sa,oû 

W6)LU 43,00 

ACB 4334,D0 

HOvr DOû,-(sP) 

MOVE 450062,-(S2) 
_MoveTo 

MOVE.L 650062910C,-(5P) 
_LineTo 

_PenNormal 

BRA.S €! 

SPNiveauEmisnion 
MOVE.L #1$384,D5 
MOVE NomsreBlecs®P{AS}, DO 
BRE.S at 
MOVEQ  #i,D0 

ê1 DIW Do,D5 
MULL NombzeBlocmis {AS} ,D5 
LSR.L #7,D5 
MOVE +128,D4 
SUB DS,D4 
ADDI #333,04 
MOVE Dd4,RectangleNiveauRB+left (As) 
PIA Aectang MN iveauRB(AS} 
_Erasekect 
MOVE D4,-(5P) 

MOVE 4+50064,-(5P} 
_HoveTo 

MOVE D4,-(SP) 
MOVE 45006A,-(SP} 
_LineTe 

RTS 

AbandenEeission 
B£R Buep? 

PEA RectEffMess2 
_£rasetect 

PEA c7 

B8R Afficheul 

SR FermetureFichies 
BSR TroisCANCEL 

RTS 

AnnuleticnRecnpreur 
85A Beep7 
PEA c19 
EsR AFFichaM] 

PEA C27 
ESR ASEicheHZz 








EsR FernoetureFichier 
SSR TreisACK 
R?S 
ArretEmission 
PEA ReutEfSMessz 
_Èrasekect 
PE» c26 
BsA Affichen2 
BSA FernetureFichier 
BSA TroisCANCEL 
RTS 
Spsainaion 
€&l ADOQ #1, NuseroBloc(AS} 
A200 #1,8cabre8loc£=1s(as } 
HOVEQ #,D0 
MOVE FumercBloc(AS].00 
LEA NusercBloclettre (AS), A0 
CLR (Sr) 
_Peck1 
LEA TamDonsort { e{AS}, AD 
MOVE.B 4508, (A0) 
MOVE.B NameroBloc+i({(As) ,OebutBlac+i(A0)} 
GRI,B DeuxForts,DabutBlocri (AO) 
HOVE.B MumeroBloc+1{AS),D0 
EOR1.B #SinFatbles, D0 
CRI.B dOeuxForts,DO 
M@VE.B D0,DabBut6loc+2 (A0) 
MOVE.B 4#3FF,Debot Blou+3 (A0) 
LEA TanponiO(AS), AO 
MOVE.L tlorngveurBloc, 1o6ReqCount (A0) 
LEA TecponSortis+TybeEmetteur (AS),A) 
MOVE.L Al,ioBuffer {A0} 
HOVE 4f sAtHark, ioPusHode {A0} 
CLR.L 1oPosOffset (A0) 
_Reat 
49 BEBR CodeBloc 
BSR CheckSum 
PEA RectEffMeca2 
_Brasekect 
PEA ceo 
BSR Affiche] 
BEA NuservBlocLettre(As) 
_Drawstring 
VE #41,CenpteurEsasaia(AS} 
€e3 35R Envoilbloc 
35R SPNiveaulmission 
62 BSR AttenteBlockx 
ss? Codes (AS} 
BN&.S @4 
ADDQ 41, cosPteurEssaie(As} 
CPI fManbreNaxEsee is}, BonDieurtésals(AS) 
BEQ.S 66 
MOVE ComptourEssnis(AS),-(5P) 
SR AL£LCROHURESS 81 
PEA [= 11 
_DravwString 
BRA a3 
86 BsR AbandonFmiseion 
BRA FinEaliesica 
@4 MOVE Code(AS};D0 
1 CAN _L,00 
BNE.S es 
BSR Ar retEmi as lon 
BRA FinEnission 
ê8 CMFI èCAN, pû 
BNE.s gs 
BSR Annulat ionkecepteur 
BRA FinEmission 
es Cri #NACK, DO 
SNE.S 07 
ADOQ 41, ComPteurLesels (AS) 
MOVE CompteurEsania(AS),-(SP) 
B5R AffichsWumEssai 
PEA Cc23 
_Drawstrang 
BBA ei 
a7 susQ 41, CompteurBlocs (AS) 
BNE o1 
BSA FermetureFichier 
MOVEQ +0,00 
RTS 
FinEmission 
MOVEQ +1,00 
RTS 
Fichier ‘InterPom’a/4 Asm' 
Reception!sM 
RTS 
Reæptionser vous 
RTS 
VerificationBice 
LEA TesposLntre+TypeLrmetteur{AS], AU 
MOV6Q 0,00 
MOVE flongveur8leeC,D1 
Gl ANDI.B #SinFaibliee, (A0) 
200.8 (A0) +-D0 
DBRA D1,81 
ANDI-B #SiATaibles,D0 
ANDI.B #S1aFaibles, (A0) 
CHP.B (A0) ,D00 
BEQ.5 e2 
@5 MOVE 2CHECX, Code (A5) 
BRA.$ 93 
42 Move NuneroBLociAs}) ,D0 


431xFa13b}23. DR 
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MOVE.B TamponEntreiNumBloc(AS),D1 
ANO1.B #SixFaibles,01 
cæ.8 D!I,00 
BEQ.5 #4 
5030.58 #1,D0 
cP.B o1,0t 
BNE.S 66 
WOVE 4DIF, Code {As} 
883.S C9 
46 ROve ACAN A,Code (AS) 
BRA.S e3 
da LORI.B fS{xFeibleseD]l 
ANOI.B #5ixFaiblee, Tampon£otre+boïNusBloc (AS} 
QP.E TaspwEnt:e#NotNamBloc(AS),D1 
BNE.S es 
CLA Code (AS} 
e3 75 
LongueurNonFichierRecu 
CLR —(SP] 
PEA MomFichiar Recu (AS} 
_Striag#idth 
aæi #111, (SPi+ 
BLT.S 42 
OVER  e0,D4 
LEA NomFichierRecou (AS) ,A4 
KOVE.B (A4},U4 
@3 WMOVE.B #'-',0{A4,D4) 
CR (5) 
PEA NomFichiarheou (AS) 
_Strinçnidth 
CHPt #111,(SP)+ 
BLT.S e2 
SUBQ.B #1, (24) 
508Q #1,D4 
BRA.S 83 
e2 RTS 
DecodeBloc 
LEA Tamponkntre+TypeËEmetteur {AS),A3 
MOVE #170.D5 
MOVEQ  604D4 
MOVEQ #0,03 
@1 MOVE.L O(A3,D4),-(SP} 
asR Decode 
WOVE-B 1($P),0{(A3,03} 
HOVE.3 2(s?},1(A3,D3) 
WOVE.B 3(s>},2(A3,01} 
AD00.L #4.5P 
ADDQ #4,De 
ADDQ 43.03 
DBRA DS.,€1 
R?S 
Oecode 
Octeti SET s 
Octet2 SET 3 
Octet3 SET 10 
Octeté SET 11 
LINE A6,00 
MOVEM.L D9-D1,-(5P) 
AXDI.1, #53F3F3F3F.Octet 1 (A6) 
MOVE Oeter3{A 63,00 
LSR 92,00 
AMDI.5 #5C0,00 
oR.3 n0,octet4(A6} 
LSR #8,D0 
MOVE.B Octetz(A6),01 
LSL.H 94,01 
OCR.B D1,00 
MOVE.B O0,0ctet3{A6) 
HOVE.B Octet2(A6},D0 
LSA.B 44,D0 
NOVE.B Cctetl(A6},DL1 
LSL.B  #2,D1 
OR..B D1.bo 
HOVE.B DO,Octat2{(R5) 
CR.B OctetL(A6) 
MOVEM.L (SP}+,D0-D1 
UNLK A6 
RTS 
Videsuffer 
LINK A6, 40 
HOVE-L 6[A6], AD 
_JRS1IO, med 
220.Ss #1 
MOv6 #2,-{sP) 
BSR Erreur 
_Exit1sshell 
61 ik A6 
MONE.], {5P},4{SP] 
ADDO.L #4,5P 
RTS 
S?Hombreoctets 
HOVEQ 90,00 
MOVE.H TasDonpntre+98 (ASJ,DQ 
LSL. +4,00 
MOVE.B TasponEntres:97{À5) ,DO 
LSL.L 48,00 
HOVE.8 TarponEnt re:96 (AS) , DO 
TST.L 00 
BB£.S el 
MOVEQ #1l,D9 
E1 MOVE-L D0,NonbreOctet Recu (AS) 
aTs 
GetTiner 
50B@.L #4,5P 
_TickCcunt 
MOVE.L (SP)+.ComPteurTiming(ns) 


a7s 


TesteTiseoue 
SUBQ.L 494,52 
TickCovunt 
MOVE.L (SP)+,D0 
su»,21 CompteurTiolng (AS ).D0 
CPI,L 720,00 
BMI.S di 
MOVEQ 1.00 
RTS 
d1 MOvro +0,.D0 
RTS 
TesteAmulerR 
_SYetenTaæsk 
sueo 2,5? 
MOVE 92,-{5r) 
PEA Enreg£vents (AS) 
_GetNext Event 
TS? {383+ 
BÉQ.S RetovrTosteAnnulerNonR 
al susQ e2,5P 
MOVT.L EnregEvents+evtMouse (AS},-{(5P) 
F£A EnregEvents+evtMeta+2(A5) 
_Fändhindow 
OP #inContent, (32)+ 
BB£.S BeepTesraannulerñ 
HOVEA.L KEnregEveñts+evtmatæ+2 (AS), A4 
TST,L vRafcon(nd} 
BHE.S  Beeplesteannulerr 
NOVE.L Aû,-(3P} 
_Sethort 
PEA ÆnregEvents+EvtHouse (AS) 
_GlobalToLocal 


SUBQ.L #2,5F 
HOVE.L EnregEvent stEvtHouse (AS) ,- (SP) 
MOVE.L A4,-(5P} 


PEA HandleControis{As) 
_Mindcontrol 
Loc) (sP)4 
BEQ.5 BoupTost aAnnulurR 
SueQ.l, 92,5? 
MOVE.L EÆwidleControle{As},-(5P) 
MOVE .L EnragEventa+EvtMouseæ (AS) ,—(SP} 
CLR.L -{52) 
TreckControl 
757 {spl+ 
BEQ.S BeepTesteñnnuler 
3U80.L 44,5P 
HOVE.1, ÆandieConzzcle{As).-(SP} 
_GetChe£Con 
MOVEQG 92,00 
CP.L (SP) +, DO 
BNE.S BeepTesteAnnulezR 
MOVE CAN, Code (AS) 
RTS 
BeepTestaAnnularr 
HOUT o7,-{sP} 
_5ys30ep 
RetourTesteAnnulerNonR 
CLA Code (AS) 
RTS 
ChangaNuraroB]loe 
ADDQ #1, NuneroBioc (AS) 
MOVEQ #0,00 
MOVE KuneroRloc (AS) ,D0 
LEA HuneroFlocLettre (AS} ; A0 
CLR -(5P} 
Jack 
nTs 
SPNiveeunecoption 
MOVEA.L (AS),A0 
PEA ligrey(A9) 
_PenPat 
NOVE.L #816364,D5 
DIVU Nonbreñlocheeu+2 (AS),D5 
WLU AFumercBloclA5),D5 
LSR.ZL 47,05 


AODI 233,05 


Move D5,RectangleNiveauAS+right (AS) 
PLA RectargloMivesvAz (AS) 
_Paintaect 
_PenWorual 
MOVE os.-(Sr) 
move +50064,-(3P) 
_Hoveto 
VE D5.-(52) 
MOVE +s086Aa-(5P} 
-Lineïn 
RTS 
formeturerTichier 
LEA FamPonEO{AS), A0 
_Clese 
RTS 
Wize JourVoluse 
LEA TanponlO(AS),AG 
CLR.L 10F1ieNanme (A0) 
MOVE VoluseCourant (A5],10VRefNum (AO} 
_rluehvol 
B£Q.S CR 
CLR — (se) 
BSR Erreur 
@1 BTS 
LireïnfoFiehier 
LEA TamponiO(AS},n0 
LEA NomFichierhecu (AS) ,Al 


MOVE.L Ai,ioFileïame(A0) 











MOVE VolumeCoezent [AS ),195VRe£fKum(A} 
CLR.B 10F1leType (AÛ} 


CLR 19FDrIndex (AC) 
_GetFilelnFo 
2E0.S €! 
CLR (5?) 
BSR Ezrevr 
HOVEQ #1,D0 
RTS 
1 MOUES 0,00 
RTS 
£critEleceisque 
LEA TamponiO(AS),A0 
MOVE.L #512,1oReqCount (A0) 
LEA Tampen£ntre+FypeEzerresr{A5}), Al 


MOVE&.L Al,1oBuffer (A0) 
HOVE 4£sAtMark, ioPc6Hode (A0) 
CHR-L  i0PosOffsat (AO) 


_frite 
BEC.S €@1 
CLR 188) 
ESR Erreur 
65R Fermeture®re 
MOVEO 1,00 
RTS 
@1 MOVEQ 50,0 
RTS 
MouvesuFichier 
LEA TambonlO(AS) ,A0 
LEA NomFichierRec (A5) ,A1 


MOVE.L, Al,ioFiieNams (A0) 
MOVE VoluseCourant (AS) , 10VRefNum (AO) 


_Create 
BE@.s fouveauFichterOuuert 
CHEI +-48,00 
BNE.S ei 
BSR NomExietanr 
BRA.H HouveauFichier 
@1 MOVE 43,-(SP) 
BSA Erreur 
MOVEQ #1,00 
RTS 


NouveaurichierOuvert 
MOVEQ +0,00 


RATS 
OuvertureFichier 
LER TampeniO(AS), A0 
LEA NomFichiorReceu [A5),AI 


WOVE.L Al,ioFileNsme(a0) 

CLR.L 1oOwnBuf(A0) 

MOVE.3 9fsWNrPera, ioParmssn (A0) 

Het VolumeCourant {AS) , 10VRe Num (A0) 


TST 20 
BNE.S qi 
_open 
BNE.H @2 
83 Mevrc 0,00 
RATS 
@1 _OpenrF 
BEQ.S 43 
02 MOVEQ 1,00 
RTS 
AcnommerFlçhker 
LEA NoeF {chierRecu {AS} , AO 
LEA NoarichierModif(as},Al 
M@VEQ #$4,D0 
_Hleck“ove 
LEA CMF ,A0 
LEA KowFichierMod1f({AS),AI 
MOVE.B (Al),D0 
LAT p0 
CMF1.B 653,00 
BLE.S a 


MOVE@ 454,00 
MOV2.E #63, (A1) 
SRA.S 03 
81 A0DQ 41,D0 
A00.B #10. (AL) 
82 MOVEQ  #%,D1 
82 MOVE.B (AU}+,0(A1,D0) 
ADDQ ‘1,00 
DBRA D1,02 
LEA TamponlG(AS) , A0 
LEA MonFi hierReceu(A5),A1l 
MOVE.1, AltoFiieNamse [AU) 
HOVE VolumeÇourent (AS) ,1aVRefNum (A0) 
LEA NomFichierModiF(AaS}).AL 
HOVE.L Al.1ocNewtame (A0} 
CLA.H 16FlleType {A0) 


_Rename 
BEQ.S ga 
CLR _4s8) 
BSR Erreur 
@4 RTS 
36ep7 
MOVE 47:-(58) 
-SYs3eeDp 
ATS 
Erreur 
LINE A6.90 
HOvE 8(A61,04 
MOVE D0,03 
BsR Boep? 
TSE D4 
BNE.S el 
BER TroisCANCEL 


es 


82 


MOvE +1,05 

BRA.S FenetreËrreur 
suBQ #+),D4 

BWE.S 2 

MOVE 2,05 

BRA.S Fenetreïrreur 
SD90 è1,Dé 

BRE.S e3 

MOVE +3,05 

BRAS FenetreErreur 


83 B52x TroisCANCEL 
MOVE #4,05 

FenetreErreur 
ELA. (52) 
MOVE.): 4'STR ‘,-(SP) 
MOYZ D5,-(52) 
_GetResource 
MOVE.L (SP)4,A2 
MOVE.L A2,A0 
_ÆLock 
MOVE.L (A2),-(SP) 
CLR.L (SP) 
€LR.L  -{SP) 
€LR.L -{5r) 
Para Text 
CLR (sp) 
MOVE #128,- (92) 
CLR-L -(sP) 
_StopAlert 
NOVE (SP) +,00 
MOVE.L A2,A0 
_AUnlock 

@1 UWIX A6 
MOVE.L (s2),2(SP)} 
ADDQ.L #2,5P 
RTS 

FerzetureErr 
LEA TamponlO(AS),A0 
_Close 
RATS 





Fichier ‘InterPom'’s/5.Asm’ 


Aécegt £anHac 


LEA Ténpon£nt re+TypeEzetteur { AS},AO 

LEA TamponTenporairer(AS),.A! 

MOVEQ #10FŒlSize, DO 

BlockMve 

HCVE TamponEntze+WBiecsDatalAS}, NoebreBD(AS} 

IMOVE TamponËntra+NHiceaReseurce {AS}, 
AombreBR (AS} 

BSB DeplacexkFR 

MOVEQ 0,00 

MOVE TagponEntre+NBloesTo=al{As),DQ 

LSRI #1,00 

CMP.I. WoæbreHOïus (AS1, DD 

BMI.S CréeationFichterMac 


ESR Bosp1 
PEA c16 
BSR 3£Fichenl 
25R Tanpo 
RTS 
Creationrichiermse 
ASR HouvseauFichisr 
B£0.S OvvertureFi<hierMac 
RATS 
QuvertureFichierMac 
TST NonbreBs (215) 
B£Q OuvertureRessOur ce 
MOVEQ  #0,D0 
RSA QuuertureF lehiez= 


BEQ.S NumeroBlocMac 
BTS 





NumeroBlocMac 

BSR ChangeNumeroBloc 
AttenteBlocMac 

BSR AfficheAttenteBloc 

MOVE #ACK,- 152) 

BSR EnvoiCode 
Boueclel 

L1:3 TesteTineOut 

8EQ.5 gl 

BSR AnnulationAbandon 

BRA Abandon fe cept ienHac 
@i Bsr TesteAnnuierR 

EST: Code(As) 

BEQ.S 82 

BSR Annvlationttiiissteur 

BRA AbsndonReceptiorMace 
2 ESR AttenteLiaisenEmetteur 

TST Code (A5) 

BEQ.S Hovciel 

BSR CetTieer 

MOVE Code (A5),00 

Pi #508,00 


BEQ.S RécaprionHloc#zc 
CPI #CAN, DO 


BNE.S 83 

BSR AnnulationEmetteur 

BSRA AbandonRe cept 1c1Mac 
E3 Cet 4E07,D0 

BEQ Finâscept ionMacData 
DifHac 

BSR Codebifferent 
Difac2 

B5R AfficheAttentesloc 





MOVE #NACK,-{5P) 
BSR EnvoiCods 
BAA.S Bouclel 


RecePption3iccMac 
PEA cé 
BSR Affichemi 
FEA NuneroBloctettre (AS} 
_DrawString 
BSA LiraBloc 


MOVE Code (A5), DO 
BEQ.S VerificationBlocMac 


OI #CAN_A, DO 

HRE.S D1fMac 

BSR Annulatr1ienAbandon 

BRA Abandonkecept ionMac 
VerlfiestionBlechec 

BsR Ver{ficatienBloe 

NOVE Code(as}.D0 

BEQ.S ei 

CHE J01F,DO 

BNE.S e2 

B5R AfficheAttenteBloc 

HOVE *ACK,-(5P) 

ESR EnvoiCode 

BRA Boucle! 
e2 cmel #TAN_A,00 

BhE Di fMac2 

BER AnnulationAkandon 

BRA AbandonFeceptionMac 
ê1 ESA DecodeBloc 
@3 BSR SPNiveauRecept ion 

HER EcritBlocDisque 

BEQ.S @4 

RATS 
@4 SUEQ #1:NombzeBD(AS) 

BN£ AumeroBlecMac 
FinRéCeptionkacData 

LEA TamDOnIO (AS}, A0 

MOVE.L TagponTempcraireF+ioFiLglæntas), 

1oLEOF(A} 

_SetEOF 
e1 B5B Fermet urefichier 

CP1 tEOT, Code (AS) 

BEQ FinRecept ionMacDat a2 
OuvertuüreRessour ce 

TEST NombreBR(AS} 

BE@ FinReceDt!orHac@ata2 

MOVEQ 1,00 

BSR Ouverturerichier 

BEQ.$ NumezoBloc#seR 

RTS 
FumoroBlochacR 

BSR ChangeNv2ercBloc 
At tenteBlocMacR 

BSR AffioheAttente Bloc 

HOvz sACK;- (BP) 

BSA EnvaiCoda 
BouclelRk 

BSR TesteTimacvt 

B5Q.S 61 

BSR AñnulationAbæuiden 

BRA Abandonka cept LenMac 
81 88k TesteAnnuierR 

TST Code {A5} 

8EQ.3 @2 

ESR Aninvlatienvtilirateur 

BRA AbandonReCept 1enaa 
82 ESR AttenteLizisenEvetteur 

TST Code (AS) 

BEQ.S BouclelR 

HER GotTiner 

MOVE Ccde({as},00 

Œ?I +#5c8,04 

BEC.S ReceptionBlo MacR 

MP! 4CAN,D0 

BNE.S 83 

SSR AnnulationEnetteur 

BRA AbandenRecept ionMac 
03 O4P1 #ECT,00 

SEQ FinRecept ionMac 
OifHacA 

BSR CodeDsfferent 
DifMac2R 

BSR àfficheAttenteBioc 

MOVE #NACK,=(52) 

BSR EnveñCéde 

BRA.E BouclelR 
RecæptionBicMacR 

FEA cé 

BSR Affiche#] 

BEA NumercBloclettre(AS} 

_DrawStzing 

ESR LireBloc 

MOVE Code (AS), D9 

BEQ.S VerificationBlocMacr 

C?21 4C?X_A,D0 

BNE.S DifFMacR 

BSR AnnulatienAbandon 

BRA Js»zndonRecept ionMac 
Verificationslorhdaen 

SSR VerificationHloe 

MOVE Céde{as),D0 

BEQ.s € 

cMP1 +01r,00 

BSE.S ©@2 

BSE AfficheAttenteBloc 
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MOVE vacx,-(3P) 


BSR Envoicode 
BRA Boucielr 
€2 CMP! #CAN_A,00 
BWE DifMac?2R 
BSR AnnulationAbanden 
BRA AbandonRausptionMec 
41 B6ER DecodsBloc 
83 BSR GPHivesuhReception 
BSR EcritBlocDioque 
Li22 Auserol}ocHacR 
BTS 
FinReCep tioniés € 
LEA TæponlO(Ast, A0 
HOVE.L TaspanTesporai reF+10P1RLgLen (AS), 
40LECP (AO) 
_Set20f 
81 SSA FernetureFichier 
FinReceptiontés cDat s2 
MOVE +ACK,- (SP) 
esr EnvoiCode 
PEA Rect2fFMsee2 
_EraseRact 
PEA ce 
BSR Alfichen] 
BSR LirelnfeFichier 
BNE.S e1 
LEA Tampon1O(AS), A0 


MOVE TasponTemporaireF+iaFlUnrNds+ 
fäFlags({Aas}, DO 

AND] #52000,00 

MOVE 00, 10FlUsrndss £dFlega (AO 

MOVE.L TamponTemporeireF+ioFlUsr Mds+ 
£dType (AS) , 10F 1Uernds + fdTyp® {A0} 

HOVE.L TarponTemporairer#10Fl Uernda+s 
FdCreator (AS), 1071Usr#de+fdCraator (A0) 

CLR.L 1o7lUsräide+£dLocat ion (0) 


CLR 1orlUsr#desfdrldr (A0) 
_SetFiloinfo 
BG£.S a 
CLR (58) 
RER Erreur 
@1 ssh MiseJourVolune 
BSR Tenpo 
RetourRecsptiorhMac 
RTS 
AbandonkRecept ionMac 
BSR FersetureFichier 
BSA BenamserFichier 
BSA Uise Jour Voluss 
BsR Tanpo 
RTS 





Fichier ‘interPom'’s.Link" 


} 


Fichiers:InterPom’s 


/Oucpuc Fichiers:Inter?cæm"s.Code 
{Type ‘TEMP‘ 





Fichier ‘interPom's.R’ 


F£éhiers:InterPom'# 
APPLTAa2m 
Type Ta3n = STR 
0 
Pem's — InterPom'sa Version 1,0 + Janvier 1967 


Type MENU 
si 
\1a 
*1A Dropos d'Interkom'æ 
{- 
2 
Fienier 
*2Toxte suulvoent JT 
*3Toct documents_/0 
"se 
(Fermez 
é 
réQuitter/Q 
ne] 
Zdtcion 
Annuler/2 
(0 
“SCouper/x 
récepier/{C 
“FColler/V 
t- 
Effacer 
‘4 
Mode 
!\12"8Aéception/R 
*9Ëmisaion/E 
Type ALAT 
.1289 {4} 
82 72 179 440 
128 
55s5 


Type OITL 
.128 (4) 


2 


mi 
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Buiion 

56 256 69 352 

Cx 

StaticText 

16 64 48 357 

nD2"2"3 

Type STA 
,1 (4) 

Erreur G'entréw/sortr fe. 
:2 (4) 


Fichier ouveï: ou utilisé. DuPliques.le Pour l'envoyer. 


:3 14 

Problez d'interfacæ s-ie. Impossible de continuer. 
:4 M 

Le oataloque est satcre_ Changez de voluse. 

Type OX 

‘1 (4) 

82 12 298 440 

Visible ABoGoaway 

PL 

9 

1 


Type UITL 
‘1 €} 

13 

StæticTezc 

0 0 216 368 

\20 

Ilconltem 

24 24 5$ S6 

257 

Iconitan 

168 212 200 344 

2665 

Stat ieText 

12 72 28 352 

InterPom'‘a — V 1.0/Mac (prosoclu ALC) 


StatieText 

36 7Ë 52 352 

© 1397 Pœæ’s/Éditions MEV 

Staticrext 

52 72 68 352 

Jean-Luc Bazaneqve et Chrlstian ?iard 
Siaticrexi 

76 24 92 352 

“TrterPom's* permet la transaizsios de fichiers 
$taticText 

92 24 106 352 

- où applicaticas — entre Macintosh, où ent: 
StaticText 

106 24 124 352 

Appie}{M et HscirtoshA. 


Stattctext 
112 24 148 357 
Le mods d'empioi et les ‘sourees" (Hs 68000} se 


StatieText 
148 246 164 352 
trouvent dans le nimére 25 de “Pom’s". 


StaticText 
172 24 168 296 


8om’s/Éditiens MEV — 12, rue d'Anjou — 
StaticText 
188 24 264 265 
78000 Versailles - Téi. 
Tyge BNDL 

+128 (32) 

Ts2n © 

Icn# 


41} 39 51 24 43. 


0 128 





-128 (32) 

APPL O0 
TY2E ICKé = SHXL 

+128(32} 
2 
a0000000 G00000c0 00000140 00008260 
00000300 00007A%8 O000FFM 003DFP56 
ODISTABA 09207546 OOSSFABA OCAIFS46 
DB14UFABC DIHCFSS£ D0387AA8 00$03550 
O8A0 18A0 01C00eC0 1920100 1FEBO280 
1F 558500 7£A2AA00 7D518400 7E32A800 
7251300 3£A30000 3D550000 :ZAaA0@00 
ODS40000 06E80000 03300000 00000000 
. 
000001£0 090003z0 0000%720 00007E0 
DOOGFFFC OUO1ZEFE OO7SFSFF UOTFFFFE 


007FFFFF OJSFFEET O3FFFFFF 
Q3F3EzFE 03 OXFBEFTC 
01F87er6 3F FFFFCFCO 





FFFFFFCO FFFFFESO FFFFETO0 FFIFF£OO 
FETITEQQ FFIFFEUO 77FE8000 7F=F8000 
3F5r0000 IFF£0888 UTFCO000 07F80000 


TYPE ICOUN = GKRL 

+257 (4) 
00000000 600008C6 00000140 00000289 
20002300 00007A78 0000FF2C O030Fn56 
O0915FASA 072BF546 OO55FASA OOAIF546 
40FA8C 60807554 90307AA8 00503550 


00A01SAU 00CO0O 
7F554500 TEAZAN0O 
70518c00 3£A30000 
02540000 06260000 


1258 (4) 
Orrr0000 06018000 
OB6CACOO OA6EROOT 
B6002000 AB?75T600 
4654400C 32006 80 
68$ED395 BBCO4001 
erorSBFO B7C04001 
AQSESBFD 60404001 
0040%E00 887FC001 


259 40) 
eFFF0000 08018600 
06FFA000 O8FFA000 
@8FTA000 ASFTF660 
80040700 BB0B7700 
66055040 B5C02020 
6FOF1404 B7C22602 
80$F3E Or 80408807 
00401040 007rr280 

,260 (4) 
OFFTFFFO 10000008 
1666466 16DSZAES 
16SSEA8 17FFFFEO 
199490 11946760 
19396876 17FFFFES 
10000008 10009008 
10000008 10000008 
08000010 0A000050 

261 (a) 
00002010 000000 28 
00000110 00000230 
00001040 00002080 
00018200 0003440 0 
001A1000 00351000 
D3TA4000 1EFC6000 
2C7A0000 1r3c0000 
01r00000 00200000 


,262 (4) 
00007FFF 00014001 
00004001 00108FFD 
00005D7D 01005D7D 
00015280 10804001 
00000000 FFF&1086 
B2UAG000 60020880 
60024000 BAFA0800 
AF7A0000 AF743000 

+263 (4 
80000800 00000004 
60000038 00003020 
00000740 00014880 
00005450 00011960 
00F24n00 O1E9E400 
2014C000 74498000 
364A0000 18140000 
62700000 01300000 


1264 (4) 
00000000 0000090 
00000100 00007A78 
0001FA8A 00017546 
0000FA3C 00007534 
40r0F021 81FFF612 
VE36C1E4 04000208 
08360110 06000108 
18000100 17FFFEAO 


265 (4) 
0OFFFFTO 0300000€ 
or£eolr 083000c1 
00436c20 00800010 
01036C08 91000002 
DOA00O11 OOFFFFE6 
7F$$8060 7EAZAASO 
70518000 3EA30000 
00540000 06E80000 

.266 (4) 
00000000 00000050 
000006AÀ 00000155 
00002À02 00004514 
000226a0 00051440 
O028A2A0 005€5140 
OOA2FÉFD6 1451IEAB 
AZOAFD4S S100F AAJ 
0A003D54 03601AA6 


267 (4} 
TFFFFFI0 AA6261A8 
DOO4F156 AAAOPIAA 
DOSGF156 AABOF IAA 
0553555356 AAAAAARAS 
28000036 ABFFFTAA 
D9660036 A99530AX 
D9954866 AB0834AX 
06000036 ASFFFFAA 

, 268 (4) 
00000000 00000000 
00000000 08000000 
00900000 00000000 
00060000 1FFFFrr0 
O0$5$5556 AARARARAAS 
05585556 AFFTEAAA 
0860536 ABEUAAAA 
D8003636 AFFFEBEA 


1E8E0100 
72518400 
10530000 
03300000 


08014000 
F6002000 
B6400C00 
69536407 
635809ED 
80572020 
FFCFUEFD 
00004001 


06FF 4000 
r8002000 
86490060 
80537500 
8BDBC510 
6054478] 
FECPCTFF 
00000500 


13FTTFCS 
164522E8 
17991266 
17549268 
13FFF5rc8 
100001c8 
10000009 
u#o00010 


00000054 
00000420 
00004100 
00068400 
00EA2000 
3cp90000 
07380000 
00c00000 


000G$EED 
0000$F8D 
00104001 
00007FFT 
60020000 
BF7A9000 
BAFA0COO 
60020000 


86000000€ 
00007920 
00035180 
00108Ac0 
07552800 
FD230000 
O0DAC0000 
00A00000 


00000140 
O0C0OFF AC 
0001FASA 
OFFFFFAB 
FE8017F4 
v43ec204 
10::6C090 
8000100 


040F0F02 
27836C7E 
e0az6ç10 
01300019 
L1E9E0804 
70510500 
30560000 
03100000 


00000080 
000080AÀ 
0000240 
0002800 
008A2980 
2A28FD45 
ZA007D46 
028000D0 


20950154 
DOcOr156 
D0800156 
25555556 
28000036 
DAIS46B6 
D8400486 
D6000036 


00000000 
00000000 
00000000 
3FFFFFFÉ 
DSS56556 
08003556 
o$suB556 
D5555556 


3FEB0Z80 
722A2A8 H0 
1E AAU0OQ 
00000000 


OAB1E000 
98F 7AD00 
ABD87FFS 
aac0587€ 
88404001 
3ECU4001 
00404001 
0000757 


08€ FE 000 
B6FF AC 00 
A3980A06 
88c00Rre0 
BB408AUB 
BEC2087F 
0040202F 
o00o200 


1YFFFFES 
1605EAES 
1754948 
1654968 
10000008 
1200FFCS 
OFTTFFTQ 
O7FIFFEO 


0000008 
00000840 
0000cC139 
000D0800 
01r 44000 
3CFD0000 
03880000 
coæ0000 


00045EE0 
0042400} 
04005780 
42060902 
B0DA40 20 
817?A0200 
60022800 
TTFE&0000 


0800091€ 
0000FEAD 
0006A0c0 
00382580 
0€ 867000 
350000 
04080000 
00400000 


00000280 
dû01FD36 
DOUIFS546 
300000D6 
83000€12 
08000108 
10004088 
07TTFEO0 


O081FFF41 
00400070 
00800010 
C1SFFFEA 
3rEB0013 
7EA28000 
1EAA0O00 
00090000 


00091100 
00001401 
00015140 
00014560 
00453070 
4515TAA3 
14007hBa 
01000580 


AAAAFIAA 
AAGOF AA 
AFFFFEAA 
AFF2FFEA 
ABTFEEAA 
AS156BAA 
AB4O0ZAR 
TFEFFFEC 


coonoo0n 
00000000 
00900000 
7TFEFFEC 
AAAARAAA 
A36F2AAA 
AB6F29EA 
FETEFFÉC 
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Scrollings en HGR 


Roland Jost 


Après les effets de miroir de 
JANUS (Pom's 25), nous vous 
proposons ici de réaliser des 
défilements (‘scrolling’), verti- 
caux ou horizontaux, de la totalité 
de l'écran HGR ou simplement 
d'une partie de celui-ci. 


Ce programme n'est pas le 
premier du genre : dans les 
premiers numéros de Pom's, 
Jean-François Duvivier réalisait 
un dédoublement d'écran. 
HAIFA (Pom's 5) et ICARE 
(Pom's 14 ) comportent aussi un 
module de ‘scrolling’. Dans le 
numéro 21 de Pom's Patrick 
Quettier proposait un programme 
de défilement graphique, dans un 
sens seulement. Pour ne pas 
oublier la littérature étrangère, 
citons HI-RES FULL SCROLL 
dans CALL APPLE #V,(2)-1982 
et surtout HIRES.HOUDINI 
(NIBBLE #V(10), 1984). Enfin, 
certains génériques de jeux ou de 
logiciels graphiques utilisent des 
effets de défilement. 


I] fallait donc apporter un ‘plus’ 
par rapport aux programmes 
existants. Nous pensons que 
c'est le cas de SCROLLINGS. 


Les possibilités 
de SCROLLINGS 


* déroulement de l'écran HGR 
dans les 4 directions (gauche, 
droite, haut, bas) : 


+ _3 modes possibles : 


— vider l'écran de manière 
progressive ; 

— obtenir un déroulement 
continu en entrant d'un côté de 
l'écran ce qui disparaît de 
l'autre ; 

— ‘scrolling’ sur deux pages, 
la page 2 venant combler la 
page 1. Dans ce cas, le contenu 
de la page 1 est perdu ; 


+ l'ampleur du mouvement peut 
être définie ; 

+ le déroulement.peut se faire sur 
tout l'écran ou seulement dans 
une fenêtre définissable par 
l'utilisateur. Dans cette fenêtre, 
on peut faire défiler le contenu 
d'une page entière. 


Le scrolling peut être stoppé 
temporairement (appui sur la 
touche <espace>) ou interrompu, 
avec reprise du cours normal du 
programme Basic appelant 
(touche <ESC>). 


Quelques 
explications 


Le principe du déroulement 
d'écran est simple : dans le sens 
vertical, pour obtenir le déplace- 
ment d'une ligne vers le haut, il 
suffit de copier chaque ligne de 
280 points (40 octets) dans la 
ligne précédente. On pourra 
mettre des zéros dans la dernière 
ligne (191) pour obtenir un 
‘scrolling simple’ avec vidage de 
l'écran. Si l'on a pris la 
précaution de sauver la ligne du 
haut (ligne 0) , on peut la recopier 
dans celle du bas et obtenir un 
scrolling en continu. Enfin, on 
peut recopier une ligne d'une 
autre page dans la ligne du bas et 
réaliser ainsi un ‘scrolling' sur 
deux pages. 


En répétant » fois la manœuvre, 
le déplacement sera plus ou 
moins important. Pour N=192, 
on opère sur toute la page. 


De même, pour un ‘scrolling’ 
latéral, on opère sur les 40 
colonnes de 192 octets de l'écran 
HGR. 


On peut définir une fenêtre en ne 
travaillant que sur ax colonnes et 
ny lignes. 





Le programme SCROLLINGS 
est loin d'être optimisé. Il se 
compose de 4 modules permettant 
chacun le défilement dans une 
direction. La construction des 
différents modules est similaire et 
on y retrouve des groupes 
d'instructions identiques qui 
auraient pu être mises en 
sous-programmes communs. 
Mais le lecteur pourra ainsi, s'il le 
désire, ne prendre que le module 
nécessaire à ses besoins. 


Occupation 
de la mémoire 


SCROLLINGS est chargé à 
l'adresse 37376 ($9200) et doit 
être protégé à partir du Basic par 
HIMEM:36864. 


$9000!: table des octets bas des 
adresses des 192 lignes de la 
page graphique 1. 

$90C0: table des octets de poids 
fort. 

$9180: stockage provisoire. 

$9200: SCROLLINGS. 

$94A3;: fin du programme. 


Utiliser 
SCROLLINGS 


CALL 37376, Direction, 
Type,Amplitude, 
X,Y,X1,Y1 


Direction = G, D, H,B,. 
Type= 0: scrolling simple ; 
1 : scrolling continu ; 
2 : scrolling de la page 2 
dans la page 1. 
Amplitude : de 0 à 255. 


X,Y : coordonnées du point 
supérieur gauche de la fenêtre : 
0 <= X <= X1 
0 <= Y <= Y1 
X1,Y1 : coordonnées du coin 
inférieur droit : 
X <= X1 <= 39 
Y <= Y1 <= 191 


graphiques. 


GG 
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Programme 
‘UTIL-SCROLLINGS" 


REM * 


REM 


© © y Ur U N ha 
& 


RAR DH HD DH DO 
* UTIL-SCROLLINGS 


+ 
* 
* _R.JOST 1986 * 
* UTILISE * 
: SCROLLINGS.OBJO * 
* TABLES.HGR.OBJO * 
* * 


RARAAAAARAHAAARHAAHRE AE 


1000 ADR = 37376: HIMEM: 36864 


1010 
1020 


1030 
1040 
1050 
1060 
1070 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
3090 


3100 


3110 


3120 


3130 


3140 


3250 


3160 


3170 
4000 
4010 
4020 





G$ = CHRS (7):D$ = CHRS (4) 

PRINT CHRS (4) "BLOAD TABLES.HGR.OBJ 
ro Had 

PRINT CHR$S (4)"BLOAD SCROLLINGS.OBJ 
0" 

X = 0:X1 
MODE = 0 
GOSUB 8010: GET RS$: PRINT RS$ 
GOSUB 5010 


:Y1 = 191 


Il 
8 
K 

i 
©Q 


REM  COMMANDES 


WAIT - 16384,128,127:R = 


PEEK ( - 
16384) - 128: POKE - 16368,0 
IF R = 83 THEN GOSUB 7010: GOTO 303 


0: REM S)AUVE LA PAGE 1 
IF R = 76 THEN GOSUB 6010: GOTO 303 
0 - REM L)OADPAGEIOU2 


IF R = 48 THEN MODE = 0: GOTO 3030: 
REM 0 

IF R = 49 THEN MODE = 1: GOTO 3030: 
REM 1 

IF R = 50 THEN MODE = 2: GOTO 3030: 
REM 2 

IF R = 77 THEN GOSUB 4030: GOTO 303 


0: REM M)ODIFIE LA FENETRE 

IF R = 78 THEN X = O:Y = 0:X1 = 39:Y 
1 = 191: GOTO 3030: REM FENETRE N)ORM 
ALE 

IF R = 73 THEN GOSUB 8010: GOTO 303 
0: REM I) NSTRUCTIONS 

IF R = 11 THEN CALL ADR, H, "MODE, 192, 
X,Y,X1,Y1: GOTO 3030: REM FLECHE HAUT 
E OU CTRL-K 

IF R = 10 THEN CALL ADR,B, MODE, 192, 
X,Y,X1,Y1: GOTO 3030: REM FLECHE BASS 
E OU CTRL-J 

IF R = 8 THEN CALL ADR,G, MODE, 39,X, 
Y,X1, Y1: GOTO 3030: REM FLECHE GAUCHE 


IF R = 21 THEN CALL ADR, D,MODE, 39,Xx 
:Y.X1,Y1: GOTO 3030: REM FLECHE DROIT 
E 


IF R = 81 THEN TEXT : END : REM QUI 
TTER 
GOTO 3030 


REM MODIFICATION DE LA FENETRE 
: REM 
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4030 


4040 


4050 


4060 


4070 


4080 


4090 


4100 


4110 


4120 


4130 


4140 
4150 
5000 
5010 


TEXT : HOME : PRINT "MODIFICATION DE 
LA FENETRE": PRINT 

HTAB l: VTAB 5: PRINT "COORDONNEES D 
U COIN SUPERIEUR GAUCBHE : " 

HTAB 1: VTAB 7: PRINT "X ";:2H = PE 
EK (36) + 1: PRINT X;: HTAB ZH: VTAB 
7: INPUT "";XS: IF X$S < 5 """ THEN X 
= VAL (X$) 

IF X < 0OORX > 39 THEN PRINT G$: G 
070 4050 

HTAB 1: VTAB 8: PRINT "Y ";:2H = PE 
EK (36) + 1: PRINT Y;: HTAB ZH: VTAB 
BLMADNEUTU > STE YS < > ‘"' THEN Y 


= VAL (Y$) 
IF Y < O0 OR Y > 191 THEN PRINT GS: 
GOTO 4070 

HTAB 1: VTAB 10: PRINT "COORDONNEES 
DU COIN INFERIEUR DROIT :" 

HTAB 1: VTAB 11: PRINT "X1 ";::2H = 


PEEK (36) + 1: PRINT X1;: HTAB 2H: VT 
AB 117 #INEUTI "PRIS TR KAIS US >" TT 
HEN X1 = VAL (X1$) 
TE: X1..> SONOREHL < 
G$: GOTO 4100 

HTAB 1: VTAB 12: PRINT "Y1 ";:ZH = 
PEEK (36) + 1: PRINT Yl;: HTAB 2H: VT 
AB 712: INEUT "MMS IF 16 < > ""AT 
HEN Y1 = VAL (Y1$) 

IF YANS (197 OR Yi < = 
G$: GOTO 4120 

GOSUB 5030 

RETURN 


= X THEN PRINT 


Y THEN PRINT 


REM AFFICHAGE PAGE HGR SANS EFFACEM 
ENT 


5020 : 


5030 


6000 
6010 
6020 
6030 
6040 
6050 


6060 


6070 


6080 


6090 
6100 


6110 


6120 
6130 


6140 


7000 : 


7010 


Z = PEEK (49232) + PEEK (49234) + 
PEEK (49236) + PEEK (49239): RETURN 


REM CHARGEMENT D'UNE PAGE GRAPHIQUE 


Z$ = "l" 

TEXT : HOME 

PRINT "CHARGEMENT EN PAGE ";:PH = P 
EEK (36) + 1:PV = PEEK (37) + ll: PRI 
NT Z2$: HTAB PH: VTAB PV: GET Z$ 

IF VAL (25) = O0 THEN 2$ = "1" 

TE I(ZS < > 2"TAND 2$ < > ‘“1") THE 
N 6040 
AD$ = ",AS$" + STR$S (2 * 
"000" 

PRINT 2$: PRINT 

INPUT "IMAGE À CHARGER ";NS$: IF N$ = 
"" THEN RETURN 

IF N$ = “?" THEN PRINT CARS (13); 
CHRS$S (4) "CATALOG": GOTO 6100 


VAL (2$)} + 


EE = l: ONERR GOTO 9010 
PRINT CHR$ (13); CHR$ (4)"B 
LOAD "N$ + ADS$ 


GOSUB 5030: RETURN 


REM SAUVEGARDE D'UNE IMAGE 














7020 : 8110 PRINT " © : QUITTER LE PROGRAMME" 
7030 TEXT : HOME : PRINT "SAUVEGARDE DE L 8120 PRINT " S : SAUVEGARDE DE LA PAGE 1l" 
A PAGE l'": PRINT 8130 PRINT " ZI : AFFICHER LES INSTRUCTION 
7040 INPUT "NOM ":NS: IF NS = ‘’" THEN 707 S": PRINT 
0 8140 PRINT “ <ESPACE> POUR FAIRE UNE PAUS 
7050 EE = 2: ONERR GOTO 9010 E “ 
7060 PRINT CHR$ (13); CHRS (4)"BSAVE "NS 8150 PRINT " <ESC> POUR STOPPER LE SCROLL 
", A$2000,LS1FF8" ING" 
7070 GOSUB 5030: RETURN 8160 HTAB 1: VTAB 23: PRINT "TAPER <RETUR 
8000 : N> POUR CONTINUER ";: GET ZS$ 
8010 REM AFFICHAGE INSTRUCTIONS 8170 GOSUB 5030 
8020 : 8180 RETURN 
8030 TEXT : HOME 9000 : 
8040 INVERSE PRINT ® SCROLLINGS - R 9010 REM TRAITEMENT ERREURS 
.JOST (C) 1985 ": NORMAL 9020 : 
8050 PRINT " SCROLLING DANS LES 4 DIRECTI 9030 TEXT : HOME 
ONS PAR LES FLECHES " 9040 ER = PEEK (222) 
8060 PRINT " (SUR LE II+ , UTILISER LES 2 9050 IF ER = 6 THEN PRINT "CE FICHIER N' 
FLECRHES, CTRL-J ET CTRL-K.)": PRIN EXISTE PAS": GOTO 9090 
T 9060 IF (ER = 4 OR ER = 9) THEN PRINT "D 
8070 PRINT " O0 : SCROLLING NORMAL ": PRIN ISK REMPLI OU PROTEGE": GOTO 9090 
Ti or À SCROLLING ‘“PERPETUEL''': PRINT 9070 IF ER = 8 THEN PRINT "ERREUR 1/0 - 
" 2 : PAGE 2 DANS PAGE 1l": PRINT ARRET DU PROGRAMME " 
8080 PRINT " L : CHARGEMENT D'UNE IMAGE E 9080 POKE 216,0: END 
N PAGES 1PET 2 9090 POKE 216,0: GET R$ 
8090 PRINT " M : MODIFIER LA FENETRE ";: P 9100 IF EE = 1 THEN R = 76: GOTO 3040 
RINT 9110 IFEE = 2 THEN R = 83: GOTO 3040 
8100 PRINT " N : RETOUR À LA FENETRE STAN 9120 END 
DARD" 
33 TAMPON EQU SIC 
Source ‘SCROLLINGS D Le de 
Assembleur ToolKit 7. De. 76e 
36 X2 EQU $EC 
27 VI EQU  $ED 
14 38 Y2 EQU $EE 
2% 39 MODE EQOU $EF 
3 * R.JOST 1985 40 BUFFER EQU SFA 
4 * 41 CHRGET EQU  $00B1 ; 
5 * SCROLLINGS 42 CHKCOM EQU  $SDEBE ; teste la virgule 
6 * 43 GETBYTC EQU $E6FS ; saisie d'une valeur 
7 * 44 * 
8 * CALL 37376,DIRECTION, M@DE,N,X,Y,X1,Y1 45 TABIL EQU $9000 ; TABLE ADRESSES {OCTET 
9 * S RAS) 
10 * DIRECTION = G)AUCHE, D)ROITE, HJAUT, B)AS 46 TAB1H EQU  $90C0 TABLE ADRESSES (OCTET 
11 * S HAUTS - PAGE 1) 
12 * MODE = O0 -> DEFILEMENT SIMPLE 37 * 
13 * MODE = 2 -> RECOPIE PAGE2->PAGEI1 48 KBD EQOU 5Cc000 rs TESTE LE CLAVIER 
14 * MODE = 1 -> SCROLLING CONTINU 49 KBDSTRB EQU $CO010 ; STROBE 
15 * 50 NEWSTT EQU  SD7D2 ; RETOUR AU BASIC À L'I 
16 * NSTRUCTION QUI SUIT 
17 * N = AMPLITUDE DU DEPLACEMENT 51 KBDWAIT EQU SFB88 +: ATTENTE TOUCHE 
18 * N>0 ET N<=-192 LR 
19 * X,Y ET X1,Y1 DEFINISSENT LA FENETRE 29 * 
20 * 54 * 
21 % 155 ORG $9200 
22 * EN COURS DE SCROLLING 56 * 
23 * 57 * 
24 * <ESC> PERMET DE REVENIR AU PROGRAMME BASIC À 58 * 
PPELANT 59 * Saisie de 1a directien du meuvement 
25 * <SPACE> PERMET UN ARRET TEMPORAIRE 60 * et dispatching vers les différents medules 
26 * REPRISE PAR FRAPPE D'UNE TOUCHE 61 * 
27% 62 JSR  CHKCOM 
28 N EQU S$S06 S CMP  #$547 ; GJauche ? 
29 €? EQU $07 64 BNE  OP2 
90: C3 EQU $08 65 JMP  LATERAL 
31 DEPART EQU $18 66 OP2 CMP 4544 : Droite ? 
32 ARRIVEE EQU SIA 67 BNE OP3 
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68 JMP. LATERAL 140 BNE BOUCF12 





69 OP3 CMP #542 ; BJas 141 LDY Xx1 
70 BNE OP4 142 BOUCF1 STA (DEPART),Y ; scrolling simple 
FE JMP BAS 143 INY 
72 OP4 CMP 4548 : H)aut 144 CPY X2 
73 BNE OP5 145 BNE BOUCFI1 
74 JMP HAUT 146 DEC N 
75 OPS5 RTS 147 SCROUP BNE SCROLLUP 
76 * 148 RTS 
77 * Scrolling vers le MAUT 149 BOUCFI2 CMP #02 
78 * 150 BNE BOUCFI3 
79 HAUT JSR CHRGET ;: saisie des paramètres 151 LDX C3 - page 2 -> page 1 
80 JSR GETBYTC 152 LDA TABIL,X 
81 STX MODE 153 STA TAMPON 
82 JSR GETBYTC 154 LDA TABI4H,X 
83 STX N 155 CLC 
84 JSR GETBYTC 156 ADC #$20 
85 STX XI 167 STA TAMPON+1 
86 JSR GETBYTC 158 INCIUCS 
87 STX Y1 159 LDY XI 
88 JSR GETBYTC 160 BOUCF2 LDA (TAMPON),Y 
: 89 INX 161 STA  (ARR2),Y 
90 STX X2 162 INY 
91 JSR GETBYTC 163 CPY X2 
92 STX Y2 164 BNE BOUCF2 
93 LDA #500 165 DEC N 
94 STA C3 166 BNE  SCROLLUP 
95 LDA 4#$80 167 RTS 
96 STA BUFFER 168 BOUCFI3 LDY X1 ; scrolling continu 
97 LDA #$91 169 BOUCF3 LDA (BUFFER),Y 
98 STA BUFFER+#I 170 STA  (ARR2),Y 
99 LDX Yy2 ; adresse de la dernièr 171 INY 
100 LDA TABIL,X e ligne 172 CPY X2 
101 STA ARR2 173 BNE BOUCF3 
102 LDOA TABIH,X 174 DEC N 
103 STA ARR2+1 175 BEQ FIN 
104 SCROLLUP JSR TEST 176 BNE SCROUP 
105 LDX Y1 177 FIN RTS 
106 STX C2 178 * 
107 LDA TABIL,X ; adresse de la ligre e 179 * 
n Cours 180 *Scrolling vers le BAS 
108 STA ARRIVEE 181 * 
109 LDA TABIH,X 182 * 
110 STA ARRIVEE+I 183 BAS JSR CHRGET ; saisie des paramètres 
111 LDY X1 184 JSR GETBYTC 
112 BE LDA (ARRIVEE),Y 185 STX MODE 
223 STA  (BUFFER),Y ; stockage tenporaire 186 JSR GETBYTC 
114 INY 187 STX N 
115 CPY X2 188 JSR GETBYTC 
116 BNE BE 189 STX) X1 
117 BOUCLELI LDX C2 190 JSR GETBYTC 
118 LDA TABIL,X 191 STX Y2 
119 STA ARRIVEE 192 JSR GETBYTC 
120 LDA TABIH,X 193 INX 
121 STA ARRIVEE+1 194 STX X2 
122 INX 295 JSR GETBYTC 
123 LDA TABIL,X 196 STX Y1 
124 STA DEPART 197 LDA 4191 
| 125 LOA TABIH,X 198 STA C3 
126 STA DEPART+1 199 LDA #00 { 
227 LDY XI 200 STA BUFFER 
128 BOUCLE2 LDA (DEPART), Y ; on balaye la ligne e 201 LDA 4$60 
n cours 202 STA BUFFER+1 
: 129 STA  (ARRIVEE), Y 203 LDX Y2 
130 INY 204 LDA TABIL,X 
131 CPY X2 205 STA ARR2 
132 BNE BOUCLE2 206 LDA TABIH,X 
133 STX C2 207 STA ARR2+1 
134 CPX Y2 208 SCROLLDW JSR TEST 
135 BNE BOUCLEI1 209 LDX Y1 
136 * 210 STX: C2 
137 * Que faire de la dernière ligne ? 241 LDA TABIL,X 
138 * 212 STA ARRIVEE 
139 LDA MODE 213 LDA TABIH,X 
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214 
215 
216 
217 
218 
219 
220 
221 
222 
223 
224 
225 
226 
227 
228 
229 
230 
231 
232 
233 
234 
235 
236 
237 
238 
239 
240 
241 
242 
243 
244 
245 
246 
247 
248 
249 
250 
251 
252 
293 
254 
255 
256 
257 
258 
259 
260 
261 
262 
263 
264 
265 
266 
267 
268 
269 
270 
271 
272 
273 
274 
275 
276 
277 
278 
279 
280 
281 
282 
283 
284 
285 
286 
287 


BEDW 


BOUCDW1 


BOUCDW2 


L 


* Que faire 
* 

LDA 
BNE 
LDY 
STA 
INY 
CPY 
BNE 
DEC 
BNE 
RTS 
BOUDWI2 CMP 


BOUDWI 


SCRODW 


BOUDW2 


BOUDWI3 LDY 
BOUDW3 


FINI 


ARRIVEE+1 


X1 
{ARRIVÉE ), Y 


(BUFFER) ,Y 


X2 

BEDW 

C2 

TABIL, X 
ARRIVEE 
TAB1H,X 
ARRIVEE+1 


TABIL,X 
DEPART 
TAB1A,X 
DEPART+1 

X1 
(DEPART},Y 
(ARRIVEE) , Y 


X2 
BOUCDW2 
c2 
Y2 
BOUCDW1 


de la dernière ligne ? 


MODE 

BOUDWI2 

X1 
(DEPART }),Y 


scrolling simple 


X2 

BOUDW1 

N 
SCROLLDW 


#02 

BOUDWI3 

63 ;‘ page 2 -> page 1 
TABIL,X 

TAMPON 

TAB1H, X 


#$20 
TAMPON+I 
C3 

XI 
(TAMPON), Y 
(ARR2) ,Y 


X2 
BOUDW2 

N 
SCROLLDW 


X1 4 
(BUFFER), Y 
(ARR2),Y 


scrolling continu 


X2 
BOUDW3 
N 

FINI 
SCRODW 


#Scrolling LATERAL 


* 


LATERAL STA 


$09 


288 JSR 
289 JSR 
290 STX 
291 JSR 
292 STX 
293 JSR 
294 STX 
295 JSR 
296 DEX 
297 STX 
298 JSR 
299 STX 
300 JSR 
301 STX 
302 LDA 
.303 CMP 
304 BEQ 
305 * 

306 * Scrolling 
307 * 

308 LDX 
309 STX 
310 DEBUT LDX 
311 DEBUT2 LDA 
122 STA 
313 STA 
314 LDA 
315 STA 
316 CEE 
317 ADC 
318 STA 
319 LDY 
320 LDA 
321 BNE 
322 PHA 
323 UMP 
324 MODE1 CMP 
325 BNE 
326 LDA 
327 PHA 
328 UMP 
329 MODE2 CMP 
330 BNE 
331 LDY 
342 LDA 
333 PHA 
334 LDY 
335 .JMP 
336 MODE3 NOP 
337 SRCLIG DEY 
338 LDA 
339 INY 
340 STA 
341 DEY 
342 CPr 
343 BNE 
344 PLA 
345 STA 
346 DEX 
347 CPX 
348 BNE 
349 JSR 
350 DEC 
351 DEC 
952 LDA 
353 CMP 
354 BNE 
355 RTS 
356 * 

357 * Scrolling 
358 * 

359 SCRLEFT LDX 
360 STX 
361 DEBLFT LDX 





CHRGET ; Saisie des paramètres 
GETBYTC 

MODE 

GETBYTC 

N 

GETBYTC 

X1 


GETBYTC 


Yi 

GETBYTC 

X2 

GETBYTC 

Y2 

$09 _ 
#547 
SCRLEFT 


à droite ou à gauche? 


à DROITE 


#39 

es) 

Y2 ‘ 
TABIL,X 
DEPART 

ARR2 
TABÏH,X 
DEPART +1 


dernière ligne 


#520 
ARR2+1 
X2 
MODE 
MODE] 


SRCLIG 

#01 

MODE2 
(DEPART), Y 


SRCLIG 
#02 

MODE3 

(EE! 
(ARR2),Y 


X2 

SRCLIC 
(DEPART },Y 
(DEPART) ,Y 


X1 
SRCLIG 


(DEPART),Y 
YZ 
DEBUT2 


TEST 
ES 


#00 


Y2 ; derniere ligne 
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362 DEBIFT2 LDA TABIL,X 392 INY 








363 STA DEPART 393 CPY X2 
364 STA ARR2 394 BNE SRCLG 
365 LDA TABIH,X 395 PLA 
366 STA DEPART+1 396 STA (DEPART), Y 
367 CLC 397 DEX 
368 ADC 4#$20 398 CPX 1 
369 STA ARR2+1 399 BNE  DEBLFT2 | 
370 LDY XI 400 JSR TEST 
371 LDA MODE 401 INC C3 
372 BNE CHXI 402 DEC N 
373 PHA 403 LDA N 
374 JMP  SRCLG 404 CMP  #$SFF 
375 CHXI CMP #01 405 BNE DEBLFT 
376 BNE CHX2 406 RTS 
377 LDA  (DEPART),Y 407 * 
376 PHA 408 * Arret du scrolling par frappe d'une touche 
379 JMP_ SRCLG 409 * 
} 380 CHX2 CMP 402 410 TEST LDA KBD 
381 BNE CHX3 411 BIT KEDSTRE 
382 HDY ‘C3 412 CMP #$9B + <ESC> interrompt les 
383 LDA  (ARR2},Y crolling 
1 384 PHA 413 BNE SPACE 
385 LDY Xi 414 JUMP  NEWNSTT : retour au programme B 
386 UMP  SRCLG ASIC appelant 
387 CHX3 NOP 415 SPACE CMP #$A0 ; <ESPACE> fait une pau 
388 SRCLG INY ci 
389 LDA  (DEPART),Y 416 BNE  CONT 
390 DEY 417 JSR KBDWAIT ; attente d'une touche 
391 STA (DEPART), Y 418 CONT RTS 
Table 90E8- 22 26 2A 2E 32 36 3A 3E 9240- 86 EE .49 00 65 08 A9 60 
£ 90F0- 23 27 2B 2F 33 37 3B 3F 9248- 85 FA A9 91 85 FB A6 £E 
TABLES HGR. 90F8- 23 27 2B 2F 33 37 3B 3F 9250- BD 00 90 85 1E BD CO 90 
OBJ 9100- 20 24 28 2C 30 34 38 3C 9258- 85 1F 20 8E 94 A6 ED 86 
nn 9108- 20 24 28 2C 30 34 38 3C 9260- 07 BD 00 90 85 1A BD CO 
Après avoir saisi cette table SOUS  ÿ110- 21 25 29 2D 31 35 39 3D 9268- 90 85 1B A4 EB B1 LA 91 
moniteur, vous la sauvegarderez par 9118- 21 25 29 2D 31 35 39 3D 9270- FA C8 C4 EC DO F7 A6 07 
BSAVE TABLES.HGR.OBJ,A$9000,  9120- 22 26 2A 2E 32 36 3A 3E 9278- BD 00 90 85 1A BD CO 90 
L$180 9128- 22 26 2A 2E 32 36 3A 3E 9280- 85 1B E8 BD 00 90 85 18 
9000- 00 00 00 00 00 00 00 00 9130- 23 27 2B 2F 33 37 3B 3F 9288- BD CO 90 85 19 A4 EB BI 
9008- 80 80 80 80 80 80 80 60 9138- 23 27 2B 2F 33 37 3B 3F 9290- 18 91 1A CB C4 EC DO F? 
9010- 00 00 00 00 00 00 00 00 9140- 20 24 28 2C 30 34 38 3C 9298- 86 07 E4 EE DO D8 A5 EF 
9018- 80 80 80 80 80 80 80 80 9148- 20 24 28 2C 30 34 38 3C 92A0- DO CE A4 EB 91 18 C@ C4 
9020- 00 00 00 00 00 00 00 00 9150- 21 25 29 2D 31 35 39 3D 92A8- EC DO F9 C6 06 DO AB 60 
9028- 80 80 80 80 80 80 80 80 9158- 21 25 29 2D 31 35 39 3D 92B0- C9 02 DO 21 A6 08 BD 00 
9030- 00 00 00 00 00 00 00 00 9160- 22 26 2A 2E 32 36 3A 3Æ 92B8- 90 85 1C BD CO 90 18 69 
9038- 80 80 80 80 80 80 80 80 9168- 22 26 2A 2E 32 36 3A 3Æ 92C0- 20 85 1D E6 08 A4 EB BI 
| 9040- 28 28 28 28 28 28 28 28 9170- 23 27 2B 2F 33 37 3B 3F 92C8- 1C 91 1E C8 C4 EC DO F7 
| 9048- A6 A6 A6 A6 A6 A6 AG A6 9178- 23 27 2B 2F 33 37 3B 3F 92D0- C6 06 DO 86 60 A4 EB B1 
9050- 28 28 28 28 28 28 28 28 92D8- FA 91 1E CB C4 EC DO F7 
9058- A6 A6 A6 A6 A6 A6 A6 A6 CE ES 92E0- C6 06 FO 02 DO C7 60 20 
2060- 28 28 28 28 28 28 28 28 Récapitulation 92E6- B1 00 20 F5 E6 66 EF 20 
9068- A8 A6 A6 A6 AG A6 AB A6 £ 92F0- F5 E6 86 06 20 F5 E6 66 
| 9070- 28 28 28 28 28 28 28 26 SCROLLINGS. 92F8- EB 20 F5 E6 86 EE 20 F5 
9078- A6 AB AB A6 AB A6 A6 A6 OBJ0’ 9300- E6 E8 86 EC 20 F5 F6 86 
9080- 50 50 50 50 50 50 50 50 9308- ED A9 BF 85 08 A9 00 65 
9088- DO DO DO DO DO DO DO DO Après avoir saisi ce code sous 9310- FA A9 60 85 FB A6 £E BD 
9090- 50 50 50 50 50 50 50 50 moniteur, vous le Sauvegarderez Dar  9318- 00 90 85 1E BD CO 90 85 
: 9098- DO DO DO DO DO DO DO DO BSAVE SCROLLINGS.OBJO,A$9200, 9320- 1F 20 8E 94 A6 ED 86 07 
90A0- 50 50 50 50 50 50 50 50 L$2A3. 9328- BD 00 90 85 1A BD CO 90 
90A8- DO DO DO DO DO DO DO DO 9200- 20 BE DE C9 47 DO 03 4C 9330+ 85 1B A4 EB Bl LA 91 FA 
90B0- 50 50 50 50 50 50 50 50 9208- AE 93 C9 44 DO 03 4C AE 9338- C8 C4 EC DO F7 A6 07 BD 
90B8- DO DO DO DO DO DO DO DO 9210- 93 C9 42 DO 03 4C E7 92 9340- 00 90 85 1A BD CO 90 85 
90C0- 20 24 28 2C 30 34 38 3C 9218- C9 48 DO 03 4C 20 52 60 9348- 1B CA BD 00 90 85 18 BD 
90C8- 20 24 28 2C 30 34 38 3C 9220- 20 B1 00 20 F5 E6 86 EF 9350- CO 90 85 19 A4 EB B1 18 
90D0- 22 25 29 2D 31 35 39 3D 9228- 20 F5 E6 86 06 20 F5 E6 9358- 91 1A CB C4 EC DO F7 86 
90D8- 21 25 29 2D 31 35 39 3D 9230- 86 EB 20 F5 E6 66 ED 20 9360- 07 E4 EE DO DB AS EF DO 
90E0- 22 26 2A 2E 32 36 3A 3E 9238- F5 E6 E8 86 EC 20 F5 E6 9368- 0E A4 EB 91 18 C8 C4 EC 
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Extasie à l'essai 


Nous devons ce programme de dessin, 
édité par Apple, à Pierre Berloquin et 
Serge Hervy. Il nécessite un Apple //c ou 
un //e avec carte Féline et souris. 


La qualité de l'ergonomie permet de se 
lancer dans son premier dessin sans trop 
s'attarder sur la documentation d'ailleurs 
fort bien présentée. Une barre de menus 
déroulants, des fenêtres, pilotage à la 
souris, c'est presque MacPaint ! 


Les dessins en couleurs (16) et en double haute 
résolution sont réalisés à partir de fonctions de 
base : point, trait, rectangle, ellipse, aérographe et 
texte (à chasse proportionnelle) ; une loupe aide 
l'utilisateur à travailler au point près sur les 560 
que comporte chaque ligne. On dispose également 
du remplissage à l'aide d'un motif choisi parmi 
seize, mais cette routine de remplissage — rapide — 
nous a semblé utiliser une astuce simplifiant plus 
la tâche du programmeur que celle de l'utilisateur : 
il faut balayer verticalement la zone à remplir et 
non simplement ‘cliquer’ dedans. Pas si simple 
quand la zone est effilée. Pas de vrais bugs mais la 
vitesse de tracé des rectangles reste en-deçà de 
l'extase. 


La gestion est confiée à ProDOS, ce qui permet 
d'utiliser tous les supports mais là, le confort de 
l'utilisateur pêche un peu sans que ProDOS soit 
responsable : 


* la routine ONLINE n'est pas disponible 
directement mais seulement en cas d'erreur ; 


* en sauvegarde, une erreur est signalée deux 
fois, une lors de la tentative d'OPEN, une lors 
du CREATE ; 


* on n'accède pas directement aux 
sous-catalogues lors des sauvegardes/ 
chargements, il faut le préciser dans un 
menu ; 

- dernier point faible : il n'est pas prévu de 
formater une disquette depuis le programme. 
ProDOS ne le permet pas mais adjoindre une 
telle routine à ce programme n'était pas un luxe. 


Dans la fenêtre d'erreur subsistent deux nombres : 
l'un est le code de la fonction MLI appelé, l'autre 
le code d'erreur : un vestige de debugging ou 
initiation aux appels MLI ? 


Finalités d'un programme de traitements de 
dessins, la sauvegarde et l'impression. Ici, la 
première se fera compactée (pour un gain de place 
non négligeable) ou non et la deuxième en 
couleurs (sur l'ImageWriterll). 


Extasie est certainement un bon logiciel (double 
haute résolution, impression couleur, simplicité et 
confort dans les manipulations). On attend 
toutefois avec impatience une nouvelle version, 
plus rapide et aux accès disques plus conviviaux. 


G 
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PicoExpert 
Système Expert de degré 0 


Yves Martin 


Généralités 


PICOEXPERT prend en compte 
deux fichiers. Dans le premier, il 
lit des assertions qui pourront être 
vraies ou inconnues. Dans le 
second, il lit les règles qui 
régissent ces assertions. 


PICOEXPERT pennet de faire 
sur ces assertions (on dira ‘faits’ 
dans la suite, même si c'est un 
abus de langage, car un fait 
devrait être une assertion vraie) 
soit de l'induction ou chaînage 
arrière, soit de la déduction ou 
chaînage avant. 


Dans cet article, nous allons 
utiliser ce programme pour 
décrire brièvement comment 
fonctionne un système expert. 
Celui-ci est dit de degré 0 car les 
assertions de base ne contiennent 
pas de variable. Un système 
expert de degré 1, avec variables, 
serait beaucoup plus intéressant, 
mais c'est déjà moins simple à 
écrire, et il semble qu'il soit 
difficile de faire quelque chose 
qui soit à fois général et efficace : 
par exemple, un système expert 
en géométrie, outre qu'il doit 
savoir faire ce qu'on attend de 
lui, doit naturellement connaître 
des notions comme la transitivité, 
les classes d'équivalence par 
exemple, ce qui ne sera pas 
nécessaire pour un système 
experten autre chose. 


L'utilisation de la récursivité du 
Pascal et de ses pointeurs est tout 
à fait efficace ici, c'est presque 
faire de l'assembleur — car on 
gère constamment des adresses — 
avec un langage évolué. Si cet 
article pouvait arriver à 
convaincre les “Pascaliens” qui 
ne s'y sont pas encore mis à 
travailler les pointeurs... 





Pom's n° 28 


Structure 
du programme 


Le programme est divisé en 
différentes parties : 


Procédures usuelles de Pom's et 

initialisations diverses 
On remarquera la possibilité du 
‘?" dans le OUI, ceci afin que 
l'on puisse signifier que l'on 
ne connaît pas la réponse à une 
question, alors que le NON 
pourrait signifier que l'on sait 
que la chose demandée n'est 
pas vraie ; 


Procédures de manipulation des 
diverses listes 


Ces procédures permettent 
d'ajouter ou retrancher des 
éléments d'une liste, ou tout 
simplement évaluer son 
contenu. Elles ne posent pas de 
problème et le débutant en 
pointeurs en Pascal peut com- 
mencer par défricher cette 


partie ; 


La construction de l'arbre des 
conditions 


Ces procédures permettent de 
transformer les règles lues 
dans le fichier de règles en liste 
d'arbres. La structure retenue 
iciest la suivante : 


— une règle est un enregis- 
trement qui contient : une 
condition, une action et un 
pointeur de règle, ou encore 
les règles sont dans une liste 
qui contient une condition et 
une action ; 

— une condition est une liste 
d'arbres ; 

— une action est une liste 
d'entiers ; 

— un arbre enfin est composé 
d'une INFO qui est un en- 
tier, et d'un Fil Gauche et 


d'un Fil Droit qui sont des 
pointeurs d'arbres. 


Précisons tout d'abord que les 
assertions lues sur la disquette 
sont placées dans un tableau BF 
(pour Base de Faits) et qu'ensuite 
les faits sont repérés par leur 
indices dans ce tableau, c'est 
pour cela qu'une action est une 
liste d'entiers et que INFO d'un 
arbre est aussi un entier. 


La grammaire pour construire la 
liste des règles est la grammaire 
usuelle de l'algèbre ordinaire, on 
a: 


Expression Terme 
en 


Par exemple : 
A +B 
A.C +B + D.(E + F + G) 


sont deux expressions. Dans la 
première les deux termes sont A 
et B et dans la seconde les termes 
sont A.C puis B, puis D.(E + F 
+G). Autrement dit, une 
expression est une suite de terines 
séparées par des OÙ (bien sûr ici 
OU et ET sont respectivement 
représentés par"+" et "."). 


Terme Terme 
| Et | 


Les TERMES eux, sont une suite 
de facteurs séparés par des ET 
(soit des “.”). Dans le second 
exemple ci dessus, A.C est un 
terme dont les facteurs sont A et 
C, B est un terme à un seul 
facteur, et D.(E + F + G) est un 
terme dont les facteurs sont D 
d'une part et d'autre part (E + F + 
G c'est-à-dire une 
EXPRESSION entre parenthèse. 
On retrouve là tout à fait l'algèbre 
ordinaire, et pour ceux qui 














découvrent ce genre de choses 
ici, on s'aperçoit combien la 
récursivité est indispensable dans 
ces problèmes puisque la 
définition de FACTEUR 
contenue implicitement dans 
EXPRESSION contiendra aussi 
EXPRESSION. 


Facteur NBRSS 
| (Expression) | 


Autrement dit, un facteur sera soit 
un NBRSS, un nombre sans 
signe, soit une expression placée 
entre parenthèses. 


NBRSS : c'est une chaîne de 
caractères qui ne peut utiliser que 
les chiffres. 


La construction proprement dite 
se fait dans la procédure 
CONSTRUIRE qui, partant 
d'une chaîne de caractères renvoit 
un pointeur d'arbres et un entier 
qui indique le nombre de feuilles 
dans toute la “forêt” de 
conditions ! La forêt en pratique 
n'ayant que 1 ou 2 arbres 
d'ailleurs. 


Ce nombre de feuilles devait 
servir à ordonner les arbres selon 
le nombre de feuilles décroissant, 
puis ensuite de pondérer les 
assertions afin que, les feuilles 
ayant du poids, on examine les 
arbres selon le poids d'inconnu 
que l'on a à son égard, mais cette 
dernière amélioration, pourtant 
assez facile à réaliser n'a pas été 
faite ici, ce serait un bon exercice. 
Donc dans la procédure 
CONSTRUIRE, les variables N, 
N1 et N2 ne considèrent que cette 
question et n'interfèrent pas la 
compréhension de la suite. 


CONSTRUIRE utilise LICAR et 
NUCAR. LICAR lit tout 
simplement un caractère qu'elle 
place dans la variable CAR et fait 
pointer la variable NUCAR sur le 
prochain caractère à lire (les 
blancs sont sautés, bien sûr). Les 
procédures EXPRESSION et 
TERME sont identiques et basées 
sur l'algorithme suivant — donné 
pour EXPRESSION : 


Pour EXPRESSION {V1 et V2 
sont des PARBRES) 


— Rechercher le premier 
TERME, et le mettre dans V1 
— Tant qu'on renconte un OU : 
- chercher le terne suivant, le 
mettre dans V2 
- construire un nouvel arbre 
ayant 
pour information : OU 
pour fils gauche V1 
pour fils droit V2 
- mettre dans Vi ce nouvel 
arbre 
— EXPRESSION renverra la 
valeur de V1 


Ainsi À + B + C sera codé ainsi : 


U 


(e) 

‘ à 

OU C 
F4 de 


même chose pour TERME. 


FACTEUR se traite de la même 
façon : 


— Pour FACTEUR 

— Chercher si on a affaire à un 
NBRSS 

— Siouion place ce nombre sans 
signe dans FACTEUR 

-— Sinon : Si l'expression 
commence par une parenthèse 
- alors chercher une 


EXPRESSION 

- si l'expression se ternine 
par une parenthèse 
alors FACTEUR recoit 
EXPRESSION 


sinon Erreur ! Il manque “)” 

- sinon Erreur ! Il manque “(” 

Enfin NBRSS indique si l'on 

rencontre un nombre sans signe 

et, si oui, le place dans le INFO 
du PARBRE correspondant. 


Ainsi A.C + B + D(E + F + G) 
sera alors structuré comme suit: 


Pointeur de l'expression 
P 


ul 

ET B :D OÙ 
x Ve FT 7 

se dE 


La condition d'une règle est une 
suite de Parbre, ceux-ci étant 


implicitement séparés par des ET. 
Cette possibilité est proposée 
dans la syntaxe par une ‘* qui 
fait l'effet d'un “gros ET”. Cette 
possibilité avait été laissée au 
départ dans l'optique de 
structurer une réorganisation du 
parcours des Parbres en fonction 
du poids des feuilles qui restaient 
inconnues ; mais Ceci n'a pas été 
fait dans cette version, les 
feuilles, c'est-à-dire les assertions 
de départ n'ayant pas été 
pondérées. 

Ainsi par exemple 2 * (3.4 + 5.6) 
est identique à 2.(3.4 + 5.6), 
seulement la première version 
donne deux Parbres pour 
l'expression alors que la seconde 
ne donne qu'un seul parbre. 


Les procédures de déduction 


Il s'agit du chaînage avant d'un 
système expert : Compte tenu des 
faits qui sont connus par la 
machine comme vrais, elle 
applique les règles qu'elle connaît 
et en déduit tout ce qu'elle peut. 


La procédure DEDUIRE est le 
lien avec l'utilisateur qui indique 
quelles sont les assertions vraies. 
Une fois cela établi, on appelle 
DEDUIT. 


DEDUIT parcours toutes les 
règles. Pour chaque règle, elle 
teste si celle-ci est applicable et, si 
oui, elle vérifie qu'en l'appliquant 
on obtient bien un fait nouveau. 
Si une fois au cours de tout ce 
parcours on obtient au moins un 
fait nouveau, alors on 
recommence tout le procédé 
depuis la première règle puisque 
la base de faits connus comme 
vrais s'est agrandie. 

DEDUIT utilise donc les fonction 
booléennes CHAINAVANT, 
UTILISE, et TESTREGL. 


Détaillons TESTREGL qui, elle, 
utilise la récursivité, ce qui nous 
préparera au chaînage arrière. 
TESTREGL teste tout les Parbres 
de sa partie ‘condition’, tous ces 
arbres doivent être vrais car ils 
sont séparés par des ET (‘*?). 
Pour cela TESTREGL contient 
une fonction TESTARB qui elle 
sera récursive, en effet son 
algorithme dans ces conditions 
est très simple : 
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Pour TESTARB(RAC:parbre) 
Selon que le contenu INFO de la 
RACine est : 
ET alors 
si le Fils Gauche est vrai 
TESTARB est la valeur du 
Fils Droit 
sinon TESTARB est faux 
OU alors 
si le Fils Gauche est faux 
TESTARB est la valeur du 
Fils Droit 
sinon TESTARB est vrai 


Une feuille alors TESTARB est 
vrai si la feuille est contenue dans 
la liste des feuilles connues 
comme vraies. 

Là encore, si on débute dans 
l'approche récursive, cette petite 
application donne la mesure de la 
force de la récuisivité, 


Les procédures d'induction 
ou chaînage arrière 


Cette partie est sans doute, avec 
la procédure de construction des 
arbres, la plus intéressante du 
programme, bien qu'elle soit très 
simple de compréhension et de 
réalisation. 


Elle contient deux procédures en 
récursivité croisées, la seconde 
appelant une procédure elle-même 
récursive, situation tout à fait 
naturelle dans ce genre de 
situation, et donc très simple à 
écrire dans un langage lui-même 
récursif. 


La fonction PROUVREGLE est 
vraie si la règle que l'on cherche à 
appliquer est effectivement 
applicable. La fonction 
VERIFIER se contente 
simplement de vérifier si un fait 
est vrai. Les deux s'articulent 
ainsi : 

Pour VERIFIER qu'un fait est 
vrai, il faut : 

- tester s'il est un élement de la 
liste des faits vrais (ici BASE), et 
si oui, c'est fini ; 

- sinon, On parcours la liste de 
toutes les règles, et pour chaque 
règle dont ce fait là est une action, 
c'est-à-dire une conclusion, on 
est amené à tester si cette règle est 
applicable (PROUVREGLE) ; 

- si le fait n'est dans aucune 
action, ou qu'aucune règle n'est 
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applicable, alors il nous reste à 
demander à l'opérateur au clavier 
s'il sait quelque chose au su jet de 
ce fait là (aprés s'être assuré 
qu'on ne lui a pas déjà demandé — 
d'où une liste de QUESTIONS et 
une procédure ENLEVE pour 
enlever les faits connus des 
QUESTIONS). 


Pour PROUVer une REGLE 
maintenant, il suffit de PROUVer 
les arbres qu'elle content. Si tous 
les ARBres sont vrais, la règle est 
applicable et on l'applique 
(utilisation de PLACER). 


Pour PROUVer un ARBre 
(PROUVARB), on procède 
comme pour le TESTer 
(TESTARB). Selon 
l'INFOrmation de la RACine : 

— ET : on doit PROUVer les 

ARBres à la fois FG et FD 
— OÙ : on doit PROUVer l'un 
des ARBres FG ou FD 

— FEUILLE : on doit VERIFIER 
que cette feuille est bien connue 
comme vraie (et donc VERIFIER 
est appelée par PROUVARB qui 
est appelée par PROUVREGLE 
qui est appelée par VERIFIER 
elle-même). 

La procédure CONFIRMER fait 
le lien avec l'opérateur au clavier 
et demande quelle assertion on 
veut prouver. Elle cherche alors à 
VERIFIER cette assertion selon 
l'algorithme décrit au dessus. 


Les procédures de lecture 
des règles 


Ces procédures lisent les fichiers 
de faits et de règles sur la 
disquette et construisent les 
arbres de règles. 

LIREREGLE découpe la phrase 
en une partie CHaine ACTion 
(CHACT) et une partie CHaine 
CONDItion (CHCONDI). 
ATTENTION il est ici implicite 
que le signe d'implication soit 
“==>” et qu'il soit précédé d'un 
blanc. 

Ensuite, PLACTION place les 
actions et PLCONDIT place les 
conditions, et donc appelle 
CONSTRUIRE. Remarquons 
que les actions sont séparées par 
des ‘.” et non des ‘*’. On peut le 
rajouter si on veut dans 
PLACTION ïil suffit alors 


d'ajouter ‘*” a l'ensemble 
des séparateurs ...IF S[I] IN... 


Enf m, on a ajouté une procédure 
de vérification des règles qui est 
simplement une lecture de l'arbre 
de la liste des règles. Là encore, 
dans le cadre d'une découverte de 
la récursivité sur des arbres en 
pascal, on peut commencer à 
défricher ECRIREGLE et 
ECRIARB quine posent aucune 
difficulté. 


Ce programme est accompagné 
de deux exemples en 
mathématique. Le premier sur les 
notions de parallélogramme, 
rectangle, losange et carré. On 
peut utiliser celui-ci pour se 
familiariser avec le fonction de 
PICOEXPERT. 

Le second exemple montre les 
limites d'un tel progamme dans le 
cas où on veut rapidement 
travailler avec des variables et que 
l'on ne dispose pas au moins de 
l'équivalence, néanmoins 
PICOEXPERT est très compétent 
pour tout ce qui est générique, 
sans variables. 


Les améliorations 


On peut commencer par chercher 
à ce que le programme affiche 
non seulement ce qu'il déduit 
comme il le fait actuellement, 
mais qu'il affiche aussi pourquoi 
il déduit cela, c'est-à-dire qu'il 
indique, quand il utilise une 
iègle, les faits qu'il utilise 

et eux seulement bien sûr. Ce 
serait une procédure qui serait 
appelée par PLACER par 
exemple, et elle serait intéressante 
à faire. 


PICOEXPERT peut aussi être 
transfonné en MICROEXPERT 
ou même MINIEXPERT en 
améliorant le chaînage arrière. En 
effet le programme actuel, à des 
fins didactiques, utilise soit un 
chaînage avant pur soit un 
chaînage arrière pur. Or dans la 
réalité, la démarche analytique, 
l'induction n'est jamais faite sans 
considérations de déduction, cela 
n'a pas de sens. Il faudrait donc 
repenser complètement 
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l'algorithme du chaînage arrière 
pour que de pico- le programme 
devienne micro- ou même mini- 
expeit. 


Pour cela, il y aurait assez peu à 
faire, encore que cela puisse être 
assez long. On pourrait dans un 
premier temps simplifier la 
grammaire et ne considérer, à la 
place des arbres, simplement des 
listes de ET, et dans ce cas on 
aurait effectivement plusieurs 
règles ayant la même action. 
Ensuite donner un coefficient de 
pondération à chaque assertion. 
Pour VERIFIER un fait on peut 
alors faire la liste des règles qui 
ont ce fait en action. Cette liste 
sera ordonnée selon la fraction 
d'inconnu dans ses prémisses : 


Par exemple si A.B.C ==> D, 
que A,B, C soient affectés de a, 
BC: 


Si par exemple A et B sont 
connus alors cette règle sera 
affectée elle du coeficient c / 
(a+b+c) . Et ainsi les questions 
posées le seront avec beaucoup 
plus de pertinence. Et pico- 
deviendra micro-. Notons que ce 
micro-expert serait tout à fait 
efficace dans nombre 
d'applications : diagnostic de 
panne ou diagnostic d'utilisation 
de réglementations complexes. 
Pour avoir plus de place 
mémoire, il n'est pas nécessaire 
d'avoir le fichier ‘faits’ en 
mémoire centrale, il peut rester 
sur disque ou sur disque 

vittuel, et donc le tableau BF 
étant alors supprimé, il y a 
beaucoup plus de place pour les 
règles. 


On peut chercher à améliorer les 
possibilités et introduire en plus 
de l'implication, l'équivalence 
logique. Ici cela n'a pas été fait 
car cela n'a d'intérêt d'une part 
que pour des applications 
mathématiques, et d'autre part, 
d'assez peu d'intérêt pour un 
système sans variable. 
Néanmoins, la chose est un bon 
exercice qui ne pose aucun 
problème et qui pourrait, dans le 
cadre d'application 


mathématiques, avoir un réel 
intéret pédagogique ou être une 


bonne base pour un projet 
pédagogique. 


Pour cela, il suffit d’avoir un 
degré de profondeur de plus dans 
les procédures PROUV (règle ou 
arbre) et bien sûr un drapeau qui 
pointe sur la liste des 
équivalences que l'on est en train 
de tester pour ne pas boucler sur 
les équivalences. Ce degré de 

profondeur ne demande que la 


construction d'une autre 
procédure PROUV 
(PROUVGENE) et d'une 


procédure TESTEQU qui testera 
sur les équivalences une assertion 
donnée, moyennant de ne pas 
essayer une liste 
d'équivalences... dont peut être 
issu cet appel. 

Et micro- deviendra mini-. 


Bien sûr, cette partie sera 
grandement enrichie, mais cela 
devient moins simple, si il n'y a 
plus une base de faits vrais 
uniquement, mais aussi une base 
de faits faux ( CONSTRUIRE se 
modifie facilement en mettant des 
nombres négatifs, cette partie ne 
présente pas de réelle difficulté) et 
que, c'est là qu'est la difficulté, le 
programme s'il rencontre 
A <==> B et qu'il sache que A 
est faux en conclura que B aussi, 
avec de nombreuses variantes sur 
les contraposées logiques, par 
exemple si A ou B == 

et que l'on sait que A est faux et 
que C aussi, on place 
automatiquement que B l'est 
aussi. Autrement dit, un 
programme qui, outre ses règles 
sur fichier, contiendra ses 
propres méta-règles. 


La difficulté n'est pas tant dans 
l'écriture, mais surtout dans le 
fait que le chaînage arrière comme 
on l'a décrit ci-dessus ne serait 
plus alors aussi pertinent ; en 
effet dans ce cas, la récursivité si 
précieuse auparavant devrait 
pouvoir être court-circuitée ici a 
tout moment sous peine de poser 
à l'écran des questions qui ne 
seraient plus d'actualité. fl faut 
donc repenser alors complètement 
l'algorithme du chaînage arrière, 
pour qu'il ne pose que des 
questions pertinentes. 

Et alors mimi- deviendra vraiment 


expert. 


Comme on le voit dans ces 
améliorations, travailler sur un 
système expert, même d'ordre 
zéro, peut être un travail vraiment 
passionnant puisqu'il amène à 
réfléchir sur la ‘démarche 
intelligente’ que l'on souhaite 
donner à l'analyse d'un 
problème, et les variantes sont 
nombreuses chacun programmant 
un peu sa propre façon d'analyser 
un problème. 


NDLR : Le programme comprend 
1.2+3.4 comme (1.2)+(3.4) et 
1+2.3+4 comme 1+(2.3)+4. II 
est donc conseillé de mettre des 
parenthèses dès qu'on a le 
moindre doute. 


Éviter les règles qui se ‘mordent 
la queue’, surtout quand on af ait 
un chaînage arrière, car le 
programme peut alors boucler 
sans autre issue que le RESET. 
Par exemple : 

(12}==56) 

(3) ==> (2) 
Si l'on cherche à confirmer (2) on 
court au problème. 


Si les règles sont incorrectement 
écrites, le programme ne s'en 
aperçoit pas toujours et peut 
planter à la lecture du fichier de 
règles (erreur d'exécution ou 
bouclage). 


Ce système expert est très 
rudimentäire (par comparaison 
car il est dé jà complexe), aussi, il 
ne sait interpréter que des 
assertions vraies : 
Ainsi, dans le cas de : 

(12) ==> (3) 

(3)==> (4) 
si l'on veut confirmer (4), il 
demandera successivement : 

1 vrai ? 

2 vrai ? 

3 vrai ? 

4 vra ? 
Même si l'on affirme que 1 est 
faux, il demandera (car il ne sait 
pas le déduire) si 3 et 4 sont 


vrais. 
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Les fichiers 


Le fichier GEOMETRIE 
s'intéresse aux parallélogrammes 
(#), rectanges, losanges, et 
carrés. 


Le second fichier est une 
démonstration de base du 
theoreme de THALES, pour cela 
le programme est efficace 
seulement ou presque avec les 
hypotèses 1,5,6,13 et 10, 
c'est-à-dire : Soit ABC un 
triangle I milieu de AB, 1J//BC et 
J sur AC et K de AB tel que 
JK//AB. Alors le théorème dit 
que J est milieu de AC (etK 
milieu de BC). 


Sur ce fichier on n'a pas pu 
mettre beaucoup d'autres règles 
car elles auraient fait boucler le 
programme . On voit ici que, 
même sans variables, avec des 
équivalences, on arriverait a 
d'excellents résultats. 


Fichier FAITHALES. TEXT 


I milieu de AB 

J milieu de AC 

K milieu de BC 

I appartient AB 

J appartient AC 

K appartient BC 

IA et IB meme longueur 
IA et JC meme longueur 
KB et KC meme longueur 


JX // AB 
UK // IA 
JK // IB 
IJ // BC 
1J // KB 
IJ // KC 
IK // AC 
IK // JA 
IK // JC 


IJ et KB meme longueur 
IJ et KC meme longueur 
JK et IA meme longueur 
UK et IB meme longueur 
IK et JA meme longueur 
IK et JC meme longueur 
1JKB parallelogranme 
IJCK parallelogramme 
UKIA parallelogränme 


Fichier REGLTHALES.TEXT 


{14.12] ==> (25) 
f25) ==> (22.19) 
(11 ==>14.7) 

(7.22) ==> (21) 
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(11,21) ==> (27) 
(13.6) ==> (14.15) 
(10.4) ==> (11.12) 
(27.5) ==> (23.17.18) 
(19.18) -=> (26) 

(26) ==> (24.20) 
(23.24) ==> {8) 

(8.5) ==> (2) 

(20.19) ==> (9) 

(9.6) ==> (3) 


Fichier GEOMETRIE.TEXT 


1 On est dans le plan 

2 On a quatre points 
A,B,C,D 

E (ABCD) est un 
quadrilatere 

4 Les cotes opposes sont deux 
à deux paralleles 

5 Deux cotes opposes sont 
paralleles et de meme 
longueur 

6 Les diagonales se coupent 
en leurs milieux 

7 {ABCD) est un # 
Les diagonales ont meme 
longueur 

9 Devx cotes sont 
orthogonaux 

10 (ABCD) est un rectangle 

ii Deux cotes consecutifs ont 
mem longueur 

12 Les diagonales sont 
orthogonales 

13 fABCD) est un losange 

14 (ABCD) est un carre 





Fichier REGLEGEOM.TEXT 


(4) 

(2) 

{4+5+6) *(3) ==> (7) 
(le) == (64) 

(7. (8+9)) ==> (10) 
(7) *(LIFI2)0= (19) 
(10.13) ==> (14) 





Programme ‘PICOEXPERT' 
Le symbole ‘f indique la continuité de la ligne. 


PONTRAM PICOPXPERT- (+ --- Avec arbres de cond) 
itionn ET at O9 --— +] 
COUST MAAX=S5; E7=-1000; OU=1010: 
TYPE CAOÏDACA-SET CE CHAR: 
PCŒLL--CRAL; 
PLISTEZ" LISTE: 
PEECLE="REGLE; 
PARBAE-"ARERE: 


RZGLE=8 BCCRD 
CCHOIT:PCELE; 
ACTIOU:PLISTE: 
SOIV:PREGLE: 

END; 


LISTE=REBCRD 
ADRI:INTEGER; 
SUIV:PLIBTE; 

2KO; 


CELLæREC@RD 
ADRC:PARBRE : 
SUIV:-PCETLL: 

EKD; 


ARBRE -RECURD 
INFO: IATEGER : 
FGtPARBRE : 
FDtPARBRE ; 
IWD; 


VAR BASE, QUESTIONS, BASEREF, QUESTREF :PLISTE: 
REGLES :PREGLE: 
BT:ARRAY(1..NMAX]) OF STRING: 
NOM I, WOMF 1: STAIUG: 
IUV, NOR, BE B3, EFL, EFB, 3CH:CR-CE,CO:CHAR; 
HBPAÏTS:$MTECER ; 
FICH:TEXT; 


(9° =es—— PROCEDURES USUELLES DE POM'S ——— #} 


PADCEDURE PAZMHISFO; 
BECIN BOT:=CHR(12) :ETB:=CHR(1 I): EE LE R(29):BÎ 
S:=C6R(E); 
CAI=CB RL 2) : SOH :=CER (7} : INV:=CER (15) ; FORMS 
+-CER (14); 
END; 


PROCEDURE MESS(U,V:2HTEGER; 5: STRING; K: INTEGER} 4 
BEGIN GUTUXE (U:V); 

CASE KR OF 

MRITL(S}); 

MRITL(S,BFL); 
WRITE(S,EE8); 
MRITL(S,50@1) 7 
MRITE(S.EFL,S CN), 
MRITL(S,ETB,3ON) 
MRLTL(INV,S,NOAM) ; 
MALTE(INV, S,MOBM, EF L); 
MALTEUINY,S,WORM, EF B); 
MRLTLUINV, 8 HORM , SON ) 

10 : HRITE(INV, 3, HORM,EFL, SON} : 
11 : MRITZUENV, 8: HORM,EPD, SUN); 


Dur AUR © © 


RACCEODRE MERR(IS:STRING} ; 
BEGIN MESS(0,21,8,4):2 NO; 


PAGTOURE EFHSAR; 
BEGIN ME85(0,23+" ‘, L}: END; 


PROCEDURE PRERRETUAN; 

VAR SORT : CHAR; 
BEGIN COTONY (0,23): MRITE("‘‘Return'* pour contil 
fuez ‘); 

RLPEAT 

R£AD (ŒTBAARD, SORT ) ? 

OWTIL LOL (KE BOARD}: 
ETMERR; 
END; 


TUNCPION PRERCAR(BOWENS :CBOFDECA) :CHAA: 
VAR CE : CHAR; 
BON : 6OUL£AM: 
BEGIN 
ABPEAT 
READ (KEYBOARD, CE) ; 
IT BOLN(KEYBOARO} THEN CÉ:rCR; 
BCWI-CE IN BONENS; 
IF HOT BON THEM WRITE(SOW) 
ELSE IF CB IN (‘ ‘4 z"] THEN NRITES 
(Ca) ; 
UNTIL 8ON; 
PRENCAR 1eCB; 
END; 


FUNCTICH OUI #BOOLEAN; 
BEGIN 
OI+=PRENCAR 0", "No", nt, "2"]} MN 1'0','e"l 
]4 
MAITELN: 
END; 
PROCEOURE PALRENTIER (LONGMAX: INTEGER: VAR S: INTEGER] 
DE 
VAR Si : STAING(1}; 
1 + INTEGER: 
CŒT : STRIR; 
EXSCAIF :CBOIOPCA: 
BEGIH 
EMSCBIP:-["0"..'m')sslimt "CONTI à 
REPERT 
1F LEXCTH(CONTJ=0 THEN S1j1) :-PAENCAAÎENSCES 
1F+1CRJ) 
SLSE XF LENGTH (CONT)=LONCMAX TREx s1(1}:/ 
PRERCAR({CH-HS)) 
CLSL S111):=PRENCAR(ZNSCAIF+ICR,BSIÉ 


7 
1F sili) IN ENSCHIF THEN CONT:-CONCAT (CONT, | 
31) 
ELSE IF S1(1]-8s THEN BEGIN 
NXITE(9S," ‘,BS): 
DELETE (COUT, LENGT] 
H{OONT}; 1); 
END; 
UNTIL S1[1)=-CR; 
IF LENGTH (CONT) <>0 THEN BEGIN 
s:=0; 
FOR Is=l TO LENGPH( CES 
NT) DO 
BEGIN 
Si-5+10:5:-5+ (ORD (CON 





TILI)-0OAD (‘0'))7 
END: 
END 
ELSE WAIPE(S); 
END}; 


PROCEOURE PRENCHAINE (LOKGMAX : INTEGEA; BONENS : CAO1BE] 
CA;VAR S1STRING} 
VAR 51 :5TRING (1); 

COL :S5TRING; 


BEGIN 
22" COTE"; 
REFZAT 
1F LENGTR(CONT)-0 THEN £1f1):-PRENCAR(BONENS+(S 
cr} 


ELSE IF LENGTE(CONTR=LONGMAX TSEN 32(1):-2RES 
RCAR([CR,Bs]) 
ELSE 8111) :=PS8ENCAR(BONENS+{CR,BS]} : 
1F $1(1) 1N BONENS THEN] 
CONT+=CONCAT (COKZ, 51) 
ELSE IF aif))-8S TRER SEGIN WR1TE (35, | 
* *,B5); 
DEHETÉICONT,LENGTE{@ONT) , 1) : 
END: 
URTIL 811)]=CB; 
iF LEMGTAICONT)<>D TREN S:2CONT 
ELSE WRITE(S): 
ENO; 


PROCEDURE LIRE(VAR LH:STRING); 

BEGIN REAOLKX (F1CH, LN}{ 

WBAILE (NOT SOF(FICA)) AMD ((LH='') OR [LN=" ‘}} OO! 
READLR (FICBI1NR : 

END: 


PROCEDURE LIREREGLE; FORNARD; 
PROCEDURE ECRITEST ; FORMARD; 


PROCEDURE 1NIT: 

CORST DIRERR»'Mal orthographié ov mauvaise disqueti 

te’: 

VAR IN:STRING:; 

VRAI :BOOLEAN : 

BEGIN 

PRENINFO; 

BASE: =N IL5NEGLES:-WIL; QUESTIONS :=N11:NBFAITS : =0: 

WAITÉ (ROME) :MESS (30,1,' SYSTEME EXPERT ', 6} ; VRAI :=f 

FALSE; 

(Ste) 

bÆSS (D,10,'1e fichier de fsits serz en drive 2,1); 

MESS(0,12."Indiquer «on nom sans le préfixe de dril 

ve’ ,1): 

MESS(Q,13; ‘et sans le suffixe ”.TEXT®°,1}; 

REPEAT 

MESs(0,18,'Nom du fichier de faits : 

PRERCAAINE (20, [* ‘.."z'),NONFI2) :EFHLRR: 

NOMP12:-CONCAT ("#5:",NOMPEZ,: ‘.TEXE‘)3 

RESET(FICB, NOMF 12}; 

VRAL :=1ORESUL T=0; 

1É NOT VRAI TSEN MERRIDIREAR) 

ELBE 
HEILE NOT EOF(FICA}) OO BEGIN LIRE); 
1F (IH) AND (LNe>' ‘)) TBBN BEGIN 

NBFALTS:=NBFAITS+1:BF(] 
NBFAITSÏ:=LN: 
MRITELRINSEASTS." -->] 
“BF (NSFAITS] ): 





END; 
END; 
CLOSEIFICE) 
UNTIL VRAI: 
MESS(0/2," “,2); 
VRAL:=FALSE; 
MESS(0,10,'Le fichier de régles sera aussi en ériv] 
e2',1): 


MESS(0,13,'sans préfixe ni sauffixe,1}; 
REPEAT 
KESS (0.18, 'Nem du fichier de régles : GE 
PRENCBAINE (20,1 "..'z2"],AOMFI};EFMERR: 
NOMF1:=CONCAT (‘4 :NOMF1,'°.TEXT'}; 
RESET{FICH,N©MFI}; 
VRAI :=IORESULT=0 ; 
IF NO VRAI TAREN MERR(DIRERR} 

ELSE MBILE MOT ECF(FICB) DO LIREREGCLE; 
C1OSE(FICA}; 
UNTIL VRAI; 
(*S1+*) 
MRITEIGOME, ‘Vérification des régles (O/K) ï ‘); 
IF OUI TAENM BEGIN NRITELK: WRITELN:ECRITEST: PRENRET| 





URN; END: 

EXO; 

(+ - procedarea de aanlbulation des diverses list] 
es = ‘| 


FUNCTIOR MEMBRSLISTII:INTEGER;L:PLISTL) :B@OLEAN; 
BEGIN 
1F LeWIL TGEN MEMBRELIST:=FALSE 
ELSE BEGIN 

MEILE {L<>NIL) AMD (t©L*.A0RI] DO LS 

teL*.S01V; 

HEIBRELIST:eNOT(LeNIL) ; 

ENO; 


FUNC7:7m MEMBRECELL (A: PARBRE:C :PCZLL) : BOBLEAN ; 


BEGIN 
IF CNIL THEN MEMBRECEEL:-FALBE 
ELSE BEGIN 
WEILE (C<>NIZ} AND (A<>C".AORC) DO C| 
10, SUIV: 
HEBRECELL : “HOT (C=NIL} : 
EXD; 
END: 


FUNCTION AJOUTLIST(I:INTEGER:L:PLISTE) :PLISTE; 

VAR P:PLISTE; 

BEGIN MEM(P}2P".ADRI:m1:P" :SUIV:=L:AJQUTLIST:=P; EU] 
2: 


FONCTION AJOUTCELL [A:PARBRE:C :PCELL) :PCELL; 

VAR P:PCELL; 

BEGIN NEM(D}:P".ADORC:= AP". S0IV:=Ç: AIOUTCELL: ep ; EN] 
D; 


FURCTION AJOUTRIGLE(C:PCELL;A:PLISTE;A:PR@GLE} :PREJ 
+GLE; 

VAR P:PREGLE: 

BAGIN WEM (2) ; P* LCONDIT:=C;P*. ACTION :=A5;P".SUIV:=R;Î 
AJSUTREGLE :=P; END; 


FUKCTION EXISTE(1:INTEGER) : BOOLEAN; 

VAR 2STB:PLISTE; 

BEGIN LSTB:=BASE; 

MAILE (LSTB<NIL) AND (I<>LSTB*.ADRI) DO LSTB:=LST| 
B*.SUIV: 

EXISTE :=NOT (LS TB=N IL) ; 

END; 


SUNCTION PIACER (1:INTEGRR ;AFFICEÆ:C6AR) : BOOLEAN; 
VAR S:STRING; 
BEGIN 
IF AFFICE=- D" THEN 5:-*Qn en deduit | 
ZLEB 5:«*On place le fait ‘; 
IF ELISTE{I) TBEN PLACER:=F ALSE 
ELSE BEGIN BASE:=AJOUTLIST (I, BASE) ; PL] 
ACER: TRUE; KRITELN; 
MAITELN(S,INV,* *,BF(1],* *,NORM] 
):MRITELN; 
END; 
END; 


PROCÉDURE EMLEVR(L:ENTEGER: VAR X:PLISTE) ; 
VAR Y/XPREC:PLISTE: 
PASVU: BSOLEAN; 
BEGIN Y:=X;:YPREC:=Xx; 
MEÏLR (Y@KEL) AND PASVU DQ BEGIN 
IF [=Y*.AORI BEN IF Y=X THEN BEGIN X:=X".$/ 
DIV;PASVO 2=FALSE ; END 
ALSE BEGIN PASVU:=FALSE: Ye] 
REC*.BUIV:=Y".SULV; 
END; 
YPREC: MY IV = YA, SUIVS 
ENO: 








(* --- Les Droceduras de construction de l'arbre EU 
+ ecnditiona —- «} 


PROCEDURE CONSTRUIRE (DEPART:STRING: VAR EXPR:PARBRE; 
VAR N:INTEGER); 
CONST PASNOMS&£=990; 
VAR MUCAR :INTEGER; 
CAR :CBAN; 


PROCEDURE LICAR; 
BEGIN 


1F NUCAR<=LENGTE(DEPART} TAEN BEGIN CAR :=DEPART(NU|- 


CAR]J:RUCAR:=NUCAR#1: 
IF CARe* ‘ TEEN 2ICAR; 
END; 

END; 


PAOCEDURE EXPRESSECOW(VAR EXPR:PARBRE;: VAR N:INTEGER] 
D FFORRARD; 


PROCEDURE NB8RS5 (VAR PNB:PARBRE;VAA H:INTEGER); 
VAR ESS:SET OF "O‘..'9"} 
V:PARBRE: 
?, FEUILLE: JNTEGER; 
BEGIN ENS:=["0",,."9*]; FEUILLE: =0; NUCAR ; 
NNILE CAR IN ENS CO BEGIN FEUILLE :-104F PUILLE+ORD(] 
CAR)-ORD ("0"); 





LICAR; END; 
NEM(V):V*.FG:æNIL:V".FD:eWIL: 
1F NUCAR=P TAEM V*.1IN]FC:=P ASNOMBRE 
ELSE BEGIN V*.INFO:=FEUILLE;N:=N+1;END; 
PNB:=V; 
END; 


PROCEOURE MERR(I:INTEGER); 

BEGIN WRI TELN (SON); 

CASE I OF 
l: HRITELN (‘Erreur de aYntexe, il Peut œanquer urnal 
Et DOTE 


2: MRITELN (‘Erreur de syntaxe, il peut manquer unel 


'ORUTE 
END; 
MB ITELM (SOU) 4 
END; 


PROCEDURE FACTEURIVAR FACT:PARBRE/VAB N:IENTEGER) ; 
VAR VL:PARBRE; 





N1:1NTEGER; 
BESIN Ni:-0; 
NBASS{WL. M1) 
IF {Vl#.IN7OX>PASNOMBRE) THEN BEGIN FACT:=V 1: Ne NL] 
#ENO 
ELSE BÉGEN 
IF CAR='{’ THEN B3GIN LICAR;f 
EXPREBSION(VI,N1) ; 
3F CAR=)‘ THEd BEGIN LJ 
ICAR; 
FACT :=VLiN:=N 1; 
ERD ELSE MERR(1}; 
END ELSE MERR(2); 
END: 
EXD} 


PROCEDURE TERME(VAR TER:PARBRE; VAR N:INTEGER) ; 
VAR N1,N2:INTEGER; 
V1, V2, V:PARBRE; 

SEGIN Nl:=0;N2:=0; 

FACTEUR(VI,N1); 

NHILR (CAR='."} CO BEGIN LICAR; PACTEUR (V2,N2) 5NEM d 

V):V*.[NFO:=ET; 
VA. PGI VA PV, FD V2: N1 2e + NZ 2 V1 : eV 3 
END; 

TER: V1 MNi=N 1; 

END; 


PROCEDURE EXPRRSSION; 
VAR VL/N2:TNTEGER; 
VI,V2,V:PARBRE; 

BEGIN N1:=0/N2:=0; 

TERME (VA,N1) ; 

NBI LE (CAB="+") DO BEGIN LICAR: TERME(V2,N2):NEMCW] 

3V°. INFO: =QU; 
V*.EG:= VV .FD:= V2: N1:"H)4EN2 Vi: UV; 
END; 

EXPR:=V1;/Niefl; 

EXD; 


BEGIN (+ construire «) 
NUCAR:=1L/EXPR:-MIL: NH: =D; 

LICAR; ESPRESSIOW {EXPR, NI : 

END: (* Fin ; aDpel de plcomiit *} 





(0 =————— La deduction : chainage avant — +} 


FUNCTION TESTREGL (REGLE : PREGLE) : BOOLEAN; 


VAR X:PCELL; 
VRAI:8OOLEAN ; 


FUNCTION TESTARB (RAC :PARBRE) : BOOLEAN; 
VAR TEST:BOOLEAN; 
INFORAC: INTEGER; 

BEGIN INFORAC:#RAC".IMFO; 
CASE INFORAC CF 

ET : If TERTARR(RAC*.PG) THEN TEST:=TESPARD(RAÎ 

c°.rD} 

ELSE TEST:®=FALSE; 
QU : IF NOT(TESTARG(RAC*.FG)) TREN TRST:-TESTAŸ 


RB(RAC* .FD) 
ELSE TEST:="TAUE; 
END; 
1F INFORAC IN (l..NBFAïïS] THEN TEST:"HKEMBREL15T) 
(1NFSRAC,HASE}; 
TESTARS : #PEST: 
END; 


BEGIN Xi-REGLE*.CONDIT; VRAI: «TRUE; 
MAII£ (X<>NIL} AND VRAI DO 1F TESTARB(X"4A0RC) TUE) 
M X:=X*.SOIV 

ELSE VRAL:=FALSE; 
TESTREGL: =VAAI; 
ERO; (+ TESTREGL *) 


FUNCTION UTILIBE(REGLE:2REG LE}: BO@LEAN; 
VAR CONCLUSION :PLISTE: 
VRAI : BOOLEAN ; 

BEGIN CONCLUSION:-REGLE" . ACTION; VRAI: =FALSE: 

WAILE (CONCLUSION<>N11,) DU B8SIN 
1F PLACER (CONCLUSION*.ADRI, ‘D'J 
YTHEN VAAI:-TRUE; 
CONCLUS ! OH : =CONCLU S1CW* . SUV: 
END; 


UTILISE:-VRAl: 
END; 


PROCEDURE DEOUIT; 
VAR CONTINUEB:BOCLEAB; 


EUNGTION CAXINAVANT : BOOLEAN ; 
VAR LRTR:PRÈGLE; 
VRAI : BOOLEAN ; 

BEGIN LSTR:=REGLES;VRAIzeFALSES 

MAIRE (LSTR<>NIL) CO BEGIN 
ÎF TESTRNGL(LSTR) TAEM IE U] 
TILISE(LSTR) THEN VRAL:-TAYE: 
LSTR:=LSTRS-EYIV; 
EB0; 

CAAIWAVANT : = VRAI ; 

END: 


SEGIN 
ABPEAT CONPENUER:-CAAINAVANT;UNTIL NOTICONTINUER}; 
END; 


PROCEDURE DEDUIRE; 
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VAR SYPOTHESE.1:INTEGER;: 


FUMCTION POSSIBLE: BOOLEAN; 
VAR OK:BO0LEAN 7 
BEGIN 
CK:= (BYPOTHESZ IN (0..HBFAITE)); 
IF NOT OK TBEN WAIT£Z{SCM); 
1F EYPOTBESE<]10 THEN WRITE(BS,* ‘,B3) 
ELSE WRITE(BS,B8,* ‘,BS,B3); 
POSSIBLE: =OK: 
EXD: 


BECIN 
WR1?L (HOME) ; 
MESS (0,3. ‘Doncer vos hyDc=hèses sous forme d'“entif 
ezs (0 Dour Quitter) .',0); 
WRITELH; WAIT2LN; 
REPEAT PREMENTIER (2, EYPOTSESE) 1UNTIL POSSIBLE; 
1F SYPOTAESP<>0 TREN BEGIN 1:+1rNBITELN(IEE, " : 1 
BF(BYPOTAESE) ); EHD; 
NAILZ (HYPOTHESE<>0) DO B£GIN BASE: =AJOUTLIST (EYPOÎ 
TEBBE, BASE); MRITELN; 
REPEAT PRENENTIER (2, HYPOTHESE) :UNT{ 


IL POSSIBLE; 
IF EYPOTALSE<>0 TEEN DBOSIN Itlé 1? 
MAIFEIML: 26" à: Ar) 
[AYPOTARESE) } ; 
EN: 
END; 
BEOUIT; 
END; 
{* === L' induction 1: chainage arriere = *) 


FUNCTION PROUVREGLE (LSTR: PREGLE) : BOOLEAN ; FORWARD; 


FUNCTION VERIFIER (FAIT :INTEGER) : BOOLEAN; 
VAR LSTR:PREGLE; 
PAUX, 1:BOOLEAN: 
C:CHAR; 
BEGIN FAUX:®TAUL:LSTR: "ABGLES: 
IF MEMBRELIST(FAIT, BASL) TAEN FAUX :=FAÎSE 
ELSE MWBILE (LSTA<>NIL} ANO FAUR 00 
1F MPMBRPLISTIFAIT,LSTA" ACTION) TBEH IF PACUVRECL) 
(LSTR) THEN FAUX:-FALSE 
ELSE LSTAI-LSTR" .SUIV 
ELSE LSTR:=LSTR*.SUIV:; 


2P FAUX AMO (MOT (MENARELISTIFAIT, QUESTIONS) )) Taenf 
BEGIN WRITELW: 
WRITE (‘2e Lait 'eINVe" ‘BFIFAIT)," qi 
MORE ‘ aat-il vrai ? ‘}3 
1F OUI TAEM BEGIN WAITELN;I1=PLACER{F( 
AIT+'C')+ FAUX :eFALSE: 
END &LS5E QUESTIONS:#AVOUPLISTI A TES 


* QUESTIONS) ; 
END: 
VEAIFIER:=MOTr FAUX} 
EN9; 


FUNCTIONW PROUVARB {RAC : PARBRÉ } : BOOLEARN ; 
VAR INFORAC: INTECER; 
BRAC rBOCLEAN 7 
BEGIN 
1NPORAC :=RAC* . INFO: 
CASE INFORAC OF 
ET 1 IF PROUVARS (AAC*, FG} TEEN BRAC:=PROUVAAB (RAJ 
C*.FO} 
ELSE BRAC:-FALSE: 
OÙ : IF NOP(PAOUVARB (RAC".FG)) THEN BRAC:1MPROUVAS 
RB (RAC". FD) 
RLIR BRAC:u/RUE; 
END; 
IF INFORAC IN [1..NBFAITS]) THEN BRAC Ie VTRIFIER(IN] 
FORAL) ; 
PROUVARS : =BRAC; 
END; 


FONCTION PROUVRECL: 
VAR LSICAS :2CRLL; 
VAAI, 1:B0OLEAN: 
LACT:PLISTES 
BÉCIN LSTCAS 2e LSTR* . COMDIT: VRAI: TRUÉ: 
WRILE (LSTCASGHIL) AMD VRAT DO 
1F PROUVARB(LSTCAS*.ADAC) TÆER LSTCAS :=f 
LSTCAS",.291V 
ELSE VRAI: FALSE; 
PACOVREGLE :=WRAI ; 
IF VRAI TBEN BEGIW UACT:=LS7A "ACTION: 
MAILE (LACT<>NIL) DO BSGIN 1:=PLACER (| 
LACTS.ADRI,"0*)z 
ENLIVE (LACT* .ADAI, QUESTIONS}; 
LACT:-LACT* ,SUIV: 
ENo: 
END; 
ENO: 


PAOÇEOURE CONFIRMER; 

VAR 1:INTECRR: 

BÉGIN WRITE(AOME); 

REPEAT 

COTCXY(0,3); 

WLITR (‘Que voulscs-vous dénontrer «a. .'NRFAITS, J 

‘} 2? ‘}:PRENENTIER(2,1); 

IF NOT(I IN |1..NRFAITS)) THEN BLGIN MAITE (SON): 
1F 1>9 THEN MRITE(ES,.RS,' ‘,BH,BS) 

ÉLSE WRITE(BS," ‘,BS): 
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END; 

VNTIL I IN (1..NBFAITS]; 

MRITE (BOME) :NRITELN ("A MONTRER : ‘+Br{1]); 

1F VERIPIPR(I) THEN BEGIN WAI?£LN; 
WRITE('L''Aypothèse ‘,INV.' *’.BFl1)): 
WRITELN(" “.5ORM, ® a té démontre . 

END ELSR SEGIM MRITRUN; 

WRITELS (908, "HyY0Cthèse non Prouvée‘); 
130; 





END; 


Un ‘bug’ dans le 
“carnet d'adresses” 
du numéro 27. 





Les utilisateurs d'Apple //e 
étendus ont certainement 
constaté que, sur leur 
machine, le programme 
“Carnet d'adresses” publié 
dans le numéro 27 de Pom's 
un petit défaut : le composeur 
téléphonique ne fonctionne 
pas. Pour pallier cela, la 
variable IC de la ligne 10240 
doit être mise à zéro. 


Un grand merci à Monsieur 
Guyot - Sainte Eulalie en 
Born - 40200 Landes, qui 
nous a indiqué ce défaut. 





{2 -—- us proeedu-s de lecture des regles —— *} 


PROCEOORE PICONDIT(S:S?RING: VAR LST:PCRLL); 
VAR 1G,1:34N :ENTEGER; 
NPRCD, PAUX : BOOLEAN ; 
DEPART :STRIVS; 
EXPR :PASSRE; 
DJ,0,X :PCESL; 
V:Y :PLISTE; 
BEGIN LG:mEPNGTA{S) ;LST:=ù IL: 
=1:HPROD:#TRUE; 
REPEAT 
MBILE (I<=LC) AND HPROD DG 1F Sf1]--*: THEN NPROJ 
D:=FALSE 


MIL:Y:-WIL;1:=]:V:f 





ELSE Ji=141; 
DEPART:=COPY(S,J,1-J) CONSTRUIRE (DEPART, EXPRN) : 
1F (NOT(WPACO)JoR(J<>1} TREN BEGIN X:=AJDUTTELL(/ 
EXPR, X) : Y:=ATOUTLIST {N, Y} à 
J:=l+1;L:=1#};NPROU; <TAUE; 
HD ELSE LST:=AJOUCELL {EXPR , LST) ;[ 
(* On Place la so1 ‘) 





UNTIL (1>LG); 
IF XONIL TEEN BEGIN DJ:=NIL; 
FEPEAT V:=Y;0:-X;M;=0; 
RSILE (D<>WEËL} DO 1F MEMBREC£LL(U* .ADAC,D] 
J} TSEN BEGIN 
V:=V*.SUIV; 
U:U*. SUIV; 
END ELSE BAGIN 
IF VA,ADRIN THEM N;V*.ADRI; 
Vi=Ve.SUIV;Ui eu" SUIV: 
Ex; 
IF NO0 TRES MEGIN B:-xX:V:2Y;PAUS: TRUE; 
MAILE (O<>N11} AND FAUX 00 
1? MPMBRDCPLL (U*.ADAC, O7 TELM SEGIN J 
V:20".S0IV; 
Vi:=V".S301V;EMD 
YLSE 
1P V*.ADRIeU THEB FAGX:=FALSE 
SLSE BEGIN 
Giaus .SUIV;V:4V*.S0 IV:EMD; 


IF NOT FAUX TEEN OJ:=AJOUTCELL(U*.AJ 
DRC,0g} : 
END; 
UWTIL N=0; 
L3T:05: 
EXO; 
END; 


PROCEDURE ZEACTION(S:STAING; VAR ACT:PLISTE) ; 
VAR ENS:SET OF ‘0:,.'9"; 
L:PLISTE: 
LG.N, 1:INTEGER; 


BEGIN L:=NIL:ENS:=["0',."9"j;:1G:=lENGTR(S);1:=l; 
MBILE (l<lgf Do 1F S(r3 IN €" ‘,".","{",")") TREN J 
Is=14+l 
ELSE BEGIN N:=0; 
ŒILE S[1) IN ENS DO BEGIN N:-10°N40R) 
D4S(1))-ORD(*0*):15=141:END; 
IF (N<>0} TBEN L:mAJOUTLIST(K,L) 
ELSE WBITELN l'Erreur d''ecrf 
iture dans “5, C=R(7)3; 
ED: 
ACT: °L; 
END; 


FRCCEDURE LIREREGLE; 
VAR CAACT, CHCMDI, LU :STRING; 
FAUX: BCOLEAS ; 
1 INTER; 
LA T:PCELL; 
ACT, PL:PLISTE; 
BEGIN LIRE (LA) : FAUX: -TROB: l:=LERCTE (LN) :ARITSER ('-J 
-> * AN); 
MBIEL (1>0) AND FAUX DO IF LW[(I)j=">' TARS FAUK:=FAf 
LSE 
ELSE 1:=1-1; 
1F 150 THEN BEGIN CAACT: «COPY (LM, 1+1, LESCPE ([N)—1}; 
CACONDI1=COPY(LN, 1,1-4); 
(° on peut ajouter un MBILE qui an evel 
les blancs finaux 4j 
END ELSE CRACTi=LN: 
PLACTICN(CSACT, ACT): 
IP IeQ THEN BEGIN Fl:=ACT/ 
WAILE (PL<>MJ);) DO BEGIS RASE: -AJDUTLY| 
&T {(PL” ,AORI, BASE ); 
PLi=PL*,SUIV; END; 
END ELSE BEGIN PLCOWDIT (CHCONOI, LST) : 
RÈGLES :=AJOUTREGL(LST, ACT, REGLES}; 
END, 
END; 
(* — Procadure de verification de construction def 
s arbres ——— +} 


PROCPOUAE ECBITEST; 
VAR R:PREGLE; 


PROCEDURE ECRIARB(RAC:PARSR }; 
SEGIN 
IF RACONIL TAEN 
IF AAC*.IWFO-ET THEN HSCIR 
IF RAC" .FG".IMFO=O0 THEM BEGIX NRTTE("("); 
ECRIARN (RAC* .FG}f 
26@17E(")-"); 
END ELSE BEGIN BCRTARS(RAÎ 
C*.rc): 
WALTE {' ." }: EMO: 
1F RAC".FD".FRFO-CU THEN REGIS MRLTZE(*('}; 
LCR IARS (RAC*.FD}f 
WRITE(*)"}; 
BND 2LSE BUGIN ECRAIARGIRA| 
C*.r0) ;END; 
END 
SLSE BRGIN LCAIARS (RAC".FG}: 
IF RAC".INFO=CU TAEM MAITE('+'} 
ELSE MRITE(RAC*. 1WEFO0)}; 
ZLCRIARS(RAC 4, F0); 
END: 
END; 


PAOCEDURE ECRIREGLE (R:PREGLE) ; 
VAR X:PCELL; 
Y:PLISTE, 
BEGIN X:-R*.CONDIT; 
WBILE (X<>WIL) DO AEGIN WRITE (' (* }; ECRIARB{X".ADRCÉ 
J'WRITE('}'); 
X:=X".SUIV:ÈF (X<>NIL} TAEN MRITE{'*"}3 
EXO+ 
WRITE(‘ ==> (');Y:=A", ACTION: 
WBILE (Y<uIL} DO BEGIN NRITE(Y*.ADRI) ;Y:-Y*.SULV; 
IF (Y<>RIL) THEN WRITE(".'}; 
END; 
WRITELN|'}") MRITELN; 
END: 





BEGIN (" soritsst +} 

R:=ABCLES; 

MAÎLE (R<NIL) DO BEGIN OCRIBESLE (R): AR" «SUIV;ENf 
D: 


BGCIK 
INIT:DEDGI?; 
BASEREF :=BASE; QUESTREF : QUESTIONS ; 
REPEAT 
WRITE(SOME) :MES5(20,1," MENU GENERAL °, 6) :NRITEI 
LN;MRITELN; 
WRITE(‘Clonfircer Diéduire Quitter  --->] 
WE 
+=PRENCAR(["C*, "0", "0", 'c',‘d',‘q']}; 
BASE: =BASEREF QUESTIONS :=QUESTREF ; 
CASE CO OF 
"C','<' :CONFIRMEB; 
‘o','d' :OBDUIRE; 
Exo? 
HAITELN;MAITEIN;IF CO IN ['C',-D','ce',"a'}) TRENS 
PRENRETURN; 
vWTIL CO IN l'Q'.'q"]; 
EHD 











Micro-Informations 


Et si 1987 était l'année du 
Macintosh ? C'est visible- 
ment le souhait exprimé à 
Cupertino où le construc- 
teur à la pomme finit de 
fourbir les armes qu'il 
dévoilera cette année et qui 
devraient lui assurer l'avan- 
tage dans un monde de la 
micro-informatique débous- 
solé par les incertitudes du 
géant IBM. 





Parmi toute une salve de 
nouveaux produits, dont les 
premiers sont apparus en ce Mois 
de janvier (et notamment les 
imprimantes laser de bas et de 
haut de gamme), la vraie 
nouveauté chez Apple sera en 
1987 ce Mac “ouvert”, dont 
l'apparition est prévue pour le 
mois de mars. Un Mac ouvert, 
parce quon pourra ajouter à la 
machine toutes sortes de cartes 
supplémentaires, d'extensions de 
mémoire, de processeurs graphi- 
ques ou sonotes. Et renouer ainsi 
avec l'ancêtre, cet Apple // qui fit 
la fortune de Wozniak et Jobs, les 
créateurs d'Apple. Les posses- 
seurs d'Apple // ne seront pas 
oubliés. D'abord parce que le 
nouvel Apple IlGs sortira cette 
année à une vraie cadence 
industrielle des usines d'Apple. 
Ensuite parce que tous les 
nouveaux programmes perrnettant 
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d'exploiter au mieux ses raffine- 
ments sonores et graphiques vont 
se bousculer dans les catalogues. 
Tout comme les perfectionne- 
ments matériels des fabricants de 
“add-on”. Message personnel aux 
possesseurs d'Apple // : ne 
bradez pas vos machines, 
quelque chose me dit qu'Apple 
pourrait rééditer avec l'Apple // 
l'opération de mise à niveau à 
laquelle elle avait procédé pour le 
MacPlus et ce pour un prix 
intéressant (on parle de moins de 
5000 Francs pour l'échange de la 
carte). Espérons seulement que 
l'attente sera moins importante 
que pour les utilisateurs de 
Macintosh. 


Revenons à celui-ci, qui pourrait 
bien être la machine dont on va le 
plus parler cette année. Un mot 
d'abord sur ces mises à niveau : 
aux États-Unis, de nombreux 
Mac convertis en MacPlus ont 
connu des problèmes d'alimenta- 
tion qu'il a fallu remplacer. 
Apparemment, les conversions 
ont été mieux pratiquées en 
France, car ce problème ne 
semble pas être apparu chez 
nous. 


L'Apple de demain 
décrit aujourd'hui. 


La grande question pour tous les 
passionnés d'Apple consistait à 
prévoir avant sa sortie l'appa- 
rence et les perforrnances du 
nouveau Mac “ouvert”. On a vu 
paraître tellement d'infornnations 
à ce sujet qu'on pensait ne plus 
rien ignorer des caractéristiques 
de la machine : processeur plus 
puissant et rapide Motorola 
68020, port d'extension ‘nubus’, 
coprocesseur arithmétique 68881, 
mémoire vive standard de 4 
Méga-octets. Une autre méthode 
pour prévoir les caractéristiques 
des machines du futur consiste à 


examiner ce que les fabricants de ‘ 
cartes et de périphériques mijotent 
pour la machine d'aujourd'hui : 
ces “superflus” seront souvent le 
“nécessaire” de la nouvelle 
machine. À ce jeu on pourrait 
prévoir, presque à coup sûr, pour 
le nouveau Mac un écran de 
grand format pouvant afficher 
une page pleine (au forrnat 
21,5cm sur 27,9cm) voire deux. 
Quelque chose me dit même que 
le Mac nouveau pourrait (en 
option, bien sûr) être doté de la 
couleur. Eh oui de la couleur, 
celle qui fait tant défaut, pour 
concurrencer complètement les 
IBM. Impossible ? Pas tellement : 
d'abord parce que les mémoires 
mortes du Mac contiennent tout 
ce qu'il faut pour cela, que les 
programmeurs des derniers logi- 
ciels parus ont prévu (souvent 
sans le dire) cette possibilité. 


Enfin, parce qu'un constructeur 
(Vemont Microsystems) avait 
conçu, construit et vendu dès 
l'année passée un moniteur 
couleur “intelligent” le VM 8861 
permettant d'afficher simultané- 
ment 256 couleurs choisies parrni 
une palette de 4096. 


Mais la couleur n'est pas 
seulement le moyen de “griller” 
l'IBM. Ce n'est plus ce créneau 
que l'on vise chez Apple. Dans la 
ligne de mire du fabricant de 
Cupertino, on vise les “stations 
de travail” du type Sun 
Microsystems et autres. C'est à 
ce marché-là que le Mac ouvert 
(parfois baptisé Paris) aura la 
tâche de s'attaquer. Avec pour les 
afficionados deux conséquences 
mitigées. La première c'est que 
par rapport à ces systèmes 
extrêmement onéreux, le Mac en 
donnera incontestablement “plus 
pour chaque dollar dépensé”. 
Mais il faut garder en mémoire 
que ces engins coûtent 
actuellement des fortunes (plus de 
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250 000 F). Le Mac ouvert 
proposera des possibilités analo- 
gues pour beaucoup moins cher. 
Probablement 40 à 60 000 F. Ce 
qui mettra quand même cet 
ordinateur, et c'est la seconde 
conséquence, bien moins 
agréable, hors de la portée de 
toutes les bourses. Mais Apple 
n'a jamais été un constructeur 
vendant des micro-ordinateurs 
bon marché, is'ntit ? 


Le portrait robot du nouveau 
Mac, c'est donc celui d'une de 
ces “stations de travail”, 
(connectables à des ordinateurs 
VAX) qui font fureur et font la 
fortune des constructeurs. À quoi 
servent-elles donc ? La question 
est importante, car de sa réponse 
vont découler les fonctionnalités 
du Mac nouveau. Ces stations de 
travail sont employées pour des 
études graphiques et des 
prototypes, pour concocter des 
études techniques et réaliser des 
documents et, enfin, à commu- 
niquer des informations. CAO, 
modélisation et graphiques d'un 
côté, édition personnelle et enfin 
communications : voici comme 
par hasard les thèmes généraux 
des derniers programmes sortis 
pour le Macintosh Plus 
d'aujourd'hui, et les domaines où 
il fera fureur avec son successeur 
cette année. 





Des communications 
plus rapides et 
plus faciles 


Juste un détail technique pour 
souligner l'importance du dernier 
cité de ces secteurs : la 
communication. La filiale de la 
firme Du Pont de Nemours 
spécialisée dans la connectique 
vient de produire un connecteur et 
un réseau à base de fibres 
optiques se substituant aux 


Pom's n° 28 








connecteurs et aux fils classiques 
AppleTalk. Avantage : les trans- 
ferts de données s'effectuent sur 
des distances importantes 
(jusqu'à 1,5 Km) et à un débit de 
600 lslobit par seconde (contre 
238,6 pour AppleTalk, soit 
environ trois fois plus vite) et on 
prévoit de passer bientôt à un 
débit de 1,5 à 3 Mégabits par 
seconde (encore 3 à 5 fois plus 
vite), par le port SCSI Ces 
vitesses considérables sont indis- 
pensables pour pouvoir faire 
travailler ensemble des micro 
ordinateurs, comme tous ceux qui 
les ont branchés en réseaux et 
piétinent devant les lenteurs des 
transferts actuels, ont pu le 
constater. 


Les réseaux constituent un 


domaine essentiel de l'avenir du. 


Mac. Aux États-Unis, Farallon 
Computer a développé le réseau 
Phone Net avec un contrôleur 
vendu 1000 dollars et permettant 
de relier 12 Mac par des fils 
simples torsadés jusqu'à 1 km de 
distance. 


Apple va d'ailleurs venir cette 
année à la rescousse en 
fournissant dès le printemps un 
logiciel de serveur de réseaux aux 
performances qu'on dit déjà 
spectaculaires. 


La liaison sur un réseau commun 
de Mac et d'IBM PC n'a déjà 
plus rien d'étonnant grâce aux 
prodiges réalisés par TOPS le 
fantastique système développé 
par Centram. Cette firme a récem- 
ment développé de nouveaux 
perfectionnements permettant 
d'une part de faire fonctionner 
l'ensemble sous le système 
UNIX, et d'autre part d'autoriser 
les IBM PC du réseau à imprimer 
directement sur la Laser Writer 
d'Apple. 


Parmi les produits qui installent 
les Mac sur des réseaux, il faut 
encore noter Interimail, le système 
de courrier électronique 
d'Internet. Un système qui 
s'installe en accessoire de bureau 
et permet d'envoyer un message, 
immédiatement ou à une date 
choisie, de transférer des fichiers, 
pour un coût de 300 dollars (pour 
1 à 4 utilisateurs), de 500 dollars 


(5 à 10 connectés), 750 (pour 11 
à 20) etc. 


Dans le même esprit, citons 
Symbmail, la messagerie de 
Symbiotic, pour passer messages 
et fichiers entre plusieurs 
Macintosh d'un même réseau 
AppleTalk 





Et puis, pour finir ce panorama 
des communications, trois 
produits français : 


«Charité bien ordonnée...», 
citons d'abord Interpom’s 
programme gratuit pour vous qui 
avez Pom’s entre les mains ou à 
60 et 80 Francs sous forme de 
disquette Apple // ou Mac, 
programme qui utilise le modem 
du Minitel pour transmettre tous 
fichiers ou applications entre 
Mac, entre Apple // et même entre 
les deux types de machines. Les 
fichiers sont recréés à l'arrivée 
avec tous leurs attributs (types, 
icônes...). Qualité Pom's. 

Le deuxième, Self Serve d'ACI 
est un logiciel permettant de créer 
un serveur Minitel en utilisant des 
modems branchés en cascade (et 
notamment les Diapasons d'Hello 
Informatique). 


Le dernier, TransLine édité par 
Bruno Rives & Associés, est un 
logiciel de communication. Sa 
caractéristique principale : il n'est 
pas un émulateur de terminal. Il 
peut donc être utilisé dans 
n'importe quelle application ou 
presque pour transmettre ou 
recevoir des données, qui sont 
automatiquement converties au 
format de l'application qu'on 
utilise, pour remplir des tableaux 
ou récupérer des textes. On peut 
aussi communiquer entre ordina- 
teurs par câbles (envoyer ainsi 
des documents MacDraw ou 
autres d'un Macintosh à l'autre). 


Un outil d'édition 
et de publication 


1986 a révélé toutes les 
possibilités du Macintosh dans le 
domaine de la publication assistée 
par ordinateur. Et la décision 
d'Apple de ne plus livrer en 
standard MacWrite a libéré 
l'imagination de tous les auteurs 
de traitements de textes. Résultat : 
il pleut des traitements de textes et 
des logiciels de mise en page. 





Une pluie de 
traitements de textes 
Le plus original est 


incontestablement FeiMa 
d'Unisource. Et pour cause : 
c'est le premier traitement de 
textes en chinois pour le Mac. Il 
utilise la souris pour sélectionner 
les caractères de préférence au 
clavier, permet de bénéficier d'un 
dictionnaire de caractères pré- 
dessinés, d'en ajouter d'autres. 
On peut aussi utiliser la méthode 
phonétique transformant des sons 
anglais en caractères chinois, et 
combiner dans un texte idéo- 
grammes et caractères européens. 
Seul défaut : il nimprime pas sur 
la Laser Writer. Prix 195 dollars 
pour une version abrégée et 545 
dollars pour la version complète. 


Pour certains, les caractères 
techniques seraient presque aussi 
compliqués que du chinois. C'est 
à eux que s'adresse TechScriber 
de Mansfield Systems. Plus que 
d'un traitement de textes, il s'agit 
presque d'un système de mise en 
page pour documents techniques 
permettant notamment d'entrer 
facilement les tables, expressions 
mathématiques compliquées, et 
de réaliser des manuels techni- 
ques comprenant diagrammes, 
éléments graphiques, etc. Prix : 
395 dollars. 





Il n'est d'ailleurs pas rare que les 
traitements de textes deviennent 
de vrais outils d'édition. C'est 
aussi le cas pour Word 3.0, la 
nouvelle version du traitement de 
textes vedette de Microsoft, 
appelée sûrement à un brillant 
avenir. Word comprend tout ce 
qu'on peut souhaiter dans un 
traitement de textes : correcteur 
orthographique incorporé, pro- 
cesseur d'idées lui aussi intégré, 
génération automatique d'index et 
de tables des matières, écriture en 
colonnes et possibilité d'entourer 
un texte, possibilité de visualiser 
sur l'écran une ou deux pages 
telles qu'elles seront finalement 
imprimées, possiblité de tourner 
sous Tops ou Ethernet, d'échan- 
ger des données avec les PC 
d'IBM en convertissant les 
fichiers au format DCA d'IBM, 
etc. Le tout pour 395 dollars. À 
noter encore qu'aux États-Unis, 
Word 3.0 serait livré avec la 
dernière version (5.1) du 
Switcher d'Apple permettant 
notamment lorsque l'on change 
un détail dans une des 
applications (par exemple à 
l'intérieur de MacPaint, dans un 
dessin transporté dans Word, de 
voir cette modification se réaliser 
automatiquement sur le dessin 
qu'on avait copié dans Word). 


Autre futur best-seller, Write 
Now de T/Maker auquel Steve 
Jobs a prêté la main. Un 
traitement de textes comprenant 
un correcteur orthographique de 
50 000 mots, l'ouverture 
simultanée d'un nombre illimité 
de documents, l'installation de 
une à quatre colonnes, la 
possibilité d'inclure des 
graphiques dans une ligne ouune 
phrase. Le tout avec la facilité de 
MacWrite et plus rapidement. Et 
pour 175 dollars. 


Quant à Mind Write de MindWork 
Software, vendu seulement 125 
dollars, il combine également un 
traitement d'idées et un traitement 
de textes. On dispose ainsi d'un 
traitement d'idées offrant toutes 
les facilités d'un MacWrite, 
permettant d'organiser tout en 
écrivant, et de voir à l'écran le 
résultat tel qu'il sera imprimé, de 
disposer d'une numérotation 








automatique des paragraphes, 
d'un compteur de mots, de 
caractères ou de paragraphes, de 
la faculté de déplacer une partie 
de texte avec la souris, sans 
recourir au copier coller, etc. 


Full Write d'Ann Arbor 
Softworks (les créateurs de Full 
Paint) est un processeur de 
documents. En clair, il contient 
aussi des fonctions d'édition 
électronique. Parmi lesquelles, 
les possibilités d'utiliser des 
colonnes multiples de tailles 
différentes sur une page, 
d'enrouler automatiquement le 
texte autour de dessins aux 
formes irrégulières. Un module 
permet aux utilisateurs d'un texte 
d'inclure des notes dans un 
document pour les envoyer à 
l'auteur (ce module permettant de 
réaliser sur ordinateur ces petites 
notes adhésives de style Post-It 
pourrait d'ailleurs être versé par 
ses auteurs dans le domaine 
public). Full Write qui combine 
des fonctions d'édition qui ne 
figurent pas dans les traitements 
de textes et des fonctions 
sophistiquées de traitements de 
textes sera vendu environ 300 
dollars. 


Haba Word d'Haba Systems, qui 
a été offert pour 69 dollars aux 
possesseurs de MacWrite ou 
Word, permet, lui, 3 colonnes de 
tailles différentes sur une page, 
divise les fenêtres en quatre 
morceaux pour voir d'un coup 
plusieurs parties d'un texte, 
affiche à l'écran quatre pages en 
réduction comme elles seront 
imprimées. 


Parmi les traitements de textes 
annoncés, on peut encore citer 
Parangon Word, de Parangon 
Courseware développé autour 
d'un éditeur de textes que certains 
utilisateurs du Mac connaissent 
sous le nom de Qued, promis 
pour juin 1987. 


Des programmes 
d'édition électronique 
plus complets 


Puisque les traitements de textes 
empruntent les possibilités gra- 








phiques des programmes d'édi- 
tion, rien d'étonnant s'il ne 
manque plus aux programmes 
d'édition électronique les facilités 
des traitements de textes. Ainsi de 
Ready Set Go de Manhattan 
Graphics (distribué en France par 
BIP) dont la dernière version 3.0 
est un complet renouvellement. 
On y trouve même un correcteur 
orthographique (en français s'il 
vous plaît) et un guide de coupure 
de mots développé avec l'aide de 
l'Université de technologie de 
Compiègne. On peut ouvrir 
simultanément plusieurs docu- 
ments, ajuster automatiquement 
textes et graphiques dans les 
colonnes après y avoir inséré un 
bloc image ou un texte, lire 
directement des fichiers 
MacPaint, MacWrite ou Works, 
on peut y inclure des documents 
spécialement préparés pour 
PostScript. Le nombre de pages 
est illimité, avec auto-numération, 
et impression de la date et de 
l'heure, etc. 


Feu Mac Publisher est réapparu, 
vendu par la célèbre firme de 
lettrages Letraset sous le nom de 
Letra Page, perfectionné avec la 
possibilité de 48 colonnes par 
pages, un espacement des lettres 
contrôlable, une palette de 96 
motifs disponibles, et de 9 
couleurs, et lui aussi un guide de 
coupure de mots automatique, 
comprenant 93 000 mots (en 
anglais seulement pour le 
moment) etc. pour 495 dollars. 





Et le petit dernier, Solo de Mac 
America, plus simple, ressemble 
à un banal Finder sur lequel on 
ouvre les différents documents à 
assembler. Une fenêtre pour un 
texte à incorporer, une fenêtre 
pour le texte assemblé. À noter 
que le texte qu'on ne prépare ne 
montre pas le texte avec ses 
attributs (gras, taille, etc.) mais 
avec des codes. 


Des logiciels 
graphiques 


À remarquer d'abord, l'Illustrator 
d'Adobe. Si le nom d'Adobe 
n'est pas inconnu aux utilisateurs 
de Macintosh, c'est que c'est 
cette compagnie qui a développé 
PostScript, le langage de 
composition utilisé par l'impri- 
mante Laser Writer. C'est précisé- 
ment pour optimiser le fonction- 
nement de l'imprimante Laser 
qu'Adobe a développé Adobe 
Illustrator. Ce programme rend 
accessible à des utilisateurs ne 
programmant pas en langage 
PostScript certaines de ses rou- 
tines graphiques. En clair, les 
utilisateurs professionnels (et 
notamment les illustrateurs ou 
dessinateurs ) disposent ainsi de 
possibilités de dessin beaucoup 
plus professionnelles. On 
commence à dessiner dans un 
mode de dessin, depuis zéro ou 
en important une esquisse réalisée 
avec MacDraw. Ensuite, on 
dispose d'une panoplie d'outils 
pour remplir les zones à colorier, 
contrôler l'épaisseur des lignes, 
les niveaux de gris, et même les 
couleurs (pour préparer la 
séparaon des couleurs sur une 
photocomposeuse Linotronic). 
Un mode permet de visualiser 
l'image réalisée avec PostScript. 
Enfin, les dessins sont stockés 
sous forme de fichiers textes 
PostScript. Ce programme très 
“pro” sera vendu à peu près 500 
dollars. 


Du côté des programmes de 
dessins, on se bouscule aussi au 
portillon. MacPaint et MacDraw 
font vraiment figures d'ancêtres. 
Voicinotamment Cricket Draw de 
Cricket Software, avec possibilité 
de rotation complète de tous les 
objets, ombrages contrôlés avec 
une échelle de gris, effets 
spéciaux, le tout utilisant 
PostScript, sans apparemment y 
toucher, tout en générant du code 
dans ce langage comme le 
précédent programme . Pour 295 
dollars. 


SuperPaint de Silicon Beach 
Software est un programme qui 
voici peu aurait encore paru 


“incroyable”. On peut en effet 
travailler sur un dessin indiffé- 
remment en mode MacPaint ou en 
mode MacDraw. Ce qui permet 
de bénéficier des avantages de ces 
deux modes. On peut travailler en 
plein écran, ouvrir simultanément 
plusieurs documents, remplir des 
formes qui se poursuivent en 
dehors de l'écran, le déroulement 
de l'image sur l'écran est 
automatique, on dispose d'une 
échelle de gris de 32 niveaux, le 
texte peut être imprimé avec les 
caractères de la Laser Writer, il se 
reformate automatiquement 
lorsqu'on change les dimensions 
d'une case qui le contient. On 
peut imprimer en couleurs avec 
l'ImageWriter IL. Prix : moins de 
100 dollars. 


Quant à GraphicWorks, il est 
publié par Mindscape, l'auteur de 
Comic Works et de Music 
Works. En fait, il utilise les 
mêmes outils que Comic Works. 
Rien d'étonnant si on peut y 
utiliser toute une gamme de 
ballons et de bulles (aussi appelés 
en français phylactères). Sa 
grande force, c'est de pouvoir 
manipuler indépendamment les 
objets de premier plan et le fond 
d'un paysage, de pouvoir 
installer des dessins en 
surimposition. Prix : 80 dollars. 





A remarquer aussi la version 2 de 
MacDraft d'IDD Software. On y 
trouve notamment la possibilité 
de changer la taille des groupes et 
des bits maps de façon 
proportionnelle, un indicateur de 
position du curseur, de nouvelles 
échelles de dessin, un calculateur 
automatique de surface, et un 
choix de 64 motifs, etc. Prix : 
269 dollars. 
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Des logiciels 
techniques 


Très importants. Ces program- 
mes sont ceux où l'on voit le plus 
l'usage qu'un Mac peut avoir 
pour des scientifiques, des 
ingénieurs, bref, tous les 
utilisateurs de ces omniprésentes 
“stations de travail”. Ce sont 
ceux-ci qui permettent peut-être 
d'apprécier le mieux l'intelligence 
des programmeurs et des 
utilisateurs. Comme s'il s'agissait 
de torrents de matière grise en 
fusion. 


Voici d'abord Stella de High 
Performance Systems. Lorsque 
l'on voit dans sa publicité, le 
directeur de la recherche de 
DuPont de Nemours s'exclamer 
«Nous avons des programmes de 
2000 dollars pour nos unités 
centrales qui ne peuvent faire ce 
que Stella fait», ou encore 
l'analyste chargé du planning de 
Cray Research, le constructeur 
des plus puissants ordinateurs du 
monde expliquer que le 
programme les a aidé à 
«équilibrer les facteurs qui 
satisfont la demande de leurs 
ordinateurs avec les facteurs qui 
génèrent cette demande», on se 
dit que le programme doit être 
exceptionnel. Aucun doute, ce 
logiciel de modélisation baptisé 
Stella pour (Structural Thinking 
Experiential Leaming Laboratory 
with Animation : laboratoire 
d'apprentissage expérimental de 
la pensée structurale avec 
animation) permet d'améliorer la 
façon de penser et de mettre en 
évidence des relations entre 
facteurs, comme un “Lego 
conceptuel”. On peut simuler des 
modèles pour déterminer si les 
propositions génèrent des 
comportements correspondant 
bien à l'objet qu'on avait assigné. 
Qu'il s'agisse d'analyser des 
processus de fabrication 
complexe, ou comme l'a fait 
Procter et Gamble, d'analyser des 
stratégies pour le lancement d'un 
nouveau produit. Bref, une 
manière de miracle pour 395 
dollars. 


Voici ensuite Prototyper de 
Smethers Barnes, un programme 


à sortir en février permettant de 
construire des prototypes pour 
visualiser des idées avec des 
menus des boutons et des 
fenêtres qui répondent. Sans 
avoir à programmer. 


Parameter Manager de Structural 
Measurement Systems est une 
matière de tableur spécialisé pour 
contrôler notamment les 
processus de fabrication. Utile en 
milieu industriel. Prix : 495 
dollars. 





Des classiques 
“‘revisités’”? 


On pensait avoir tout vu en 
matière de tableurs. Et qu'après 
Excel, on aurait du mal à faire 
mieux. On peut en tout cas faire 
déja plus rapide. C'est l'objet de 
Mac Calc de Bravo Technology. 
Qui permet notamment (contrai- 
rement à Excel) de changer les 
caractères et leurs tailles dans 
chaque case. Ce tableur calcule de 
10 à 15% plus vite qu'Excel, 
permet d'inclure des annotations 
relatives à une case) et dispose 
d'un choix de fonction pour 
moins de 100 dollars. | 


Quant à Trapeze, de Data Tailor, 
à paraître à la fin janvier, il 
présente la caractéristique de 
travailler en “blocs” de plusieurs 
cellules (pour lesquels le 
programme connaît les relations 
qui les unissent) et non case par 
case comme la majorité des 
tableurs. D'où la possibilité de 
faire des calculs sans se soucier 
de la position d'un bloc sur une 
page, et de réaliser des calculs 
financiers complexes (on dispose 
de 10 fonctions financières et 
d'ingéniérie dont certaines 
inédites). D'où la possibilité aussi 
de réaliser des présentations 
parfaites. 





Des utilitaires 
géniaux 


Génial, c'est bien le mot qui 
caractérise Glue de Solutions Inc. 
Ce programme permet de sauver 
sur le disque des graphiques 
venant de la plupart des 
applications pour Macintosh, et 
de les ouvrir sans avoir à ouvrir 
l'application. On peut par 
exemple sauver un graphique 
d'Excel, grâce à la partie du 
programme baptisé Image saver. 
Ensuite, on peut ouvrir ce fichier 
et visualiser le graphique ou 
l'imprimer avec l'autre partie 
baptisée le Viewer. Les fichiers 
sont facilement exportables. D'où 
la possibilité d'expédier facile- 
ment une lettre d'informations ou 
un dessins sauvés avec Glue sur 
un réseau ou par téléphone, avec 
InterPom's par exemple. Prix 49 
dollars. Vivement que cet 
utilitaire (auquel un banc d'essai 
de la très sérieuse revuë 
Inforworld a attribué une note 
maximale) débarque chez nous. 


Utile, c'est ist Aid de ist Aid 
Software qui permet de récupérer 
des fichiers endommagés de 
sauver les données de disques 
“illisibles” ou de relire des 
fichiers endommagés ou effacés. 
Un kit de 4 disques vendu 90 
dollars et que tout utilisateur de 
Mac devrait posséder. 


Du matériel 


Ces nouveaux écrans géants 
semblent désormais indispensa- 
bles pour le Mac. Après le FDP 
de Radius, voici le Big Picture de 
E Machines. C'est un écran 
permettant de visualiser simulta- 
nément deux pages sur l'écran. Il 
faut bien sûr modifier le Mac avec 
une carte qui se clippe sur le 
processeur. On peut alors 
apprécier une visualisation de 
1024 x 808 points avec une 
qualité remarquable. Pour un prix 
hélas supérieur à celui d'un 
Macintosh Plus complet. 


Un jeu 


C'est à Jean Pierre Brûlé, l'ex-Mr 
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Informatique en France (mais 
ausi champion de scrabble) que 
l'on doit Anacrack vendu par 
ACL. Un jeu basé sur l'utilisation 
de 90 000 mots avec 2 niveaux de 
vocabulaire 4 vitesses et trois 
formes de jeux rappelant les 
principes du célèbre Scrabble. 


Adresses 


Vernont Microsystems 

11 Tigan St Winooski 

VT 05404 Centram 2560 Ninth 
St, Berkeley, CA 94710 


Internet 
20 Amy Cle, 
Waban MA 02168 


ACI 
6, avenue Franklin Roosevelt 
75008 Paris - Tél. : 43 59 89 55 


Bruno Rives & associés 
6, avenue Franklin Roosevelt 
75008 Paris - Tél. : 42 89 02 36 


Unisource 
23 East St 
Cambridge MA 02141 


Mansfield Systems 
550 Hamilton Av. 
Suite 200 Palo Alto, CA 94301 


TMaker 
1973 Landing Drive 
Mt View, CA 94043 


MindWork Software 
PO Box 222280 
Carmel CA 93922 


Ann Arbor Softworks 
2393 Teller Road, Suite 106 
Newbury Park, CA 91320 


Haba Systems 
6711 Valjean Ave. VanNuys 
CA 91406 


Lettraset 

PO Box 3900 Peoria, IL 61614 
Mac America 

18032C Lemon 

Dr Yorba Linda CA 92686 


Adobe 
1870 Embarcadero 
Rd N°100 Palo Alto, CA 94303 


Cricket Software 


3508 Market Street 
Suite 206 Philadelphia PA 19104 


Sificon Beach Software 


PO Box 261430 
San Diego CA 92126 
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Mindscape 
3444 Dundee Rd 
Notthbrook IL 60062 
IDD Software 
1975 Willow Pass Rd Ste 8 
Concord CA 94520 ie. 
High Performance Systems MN 
PO BOX B1167 ® Eee 
Hanover NH 03755 = : 
Smethers Barnes Se 
Tél. : 
(aux États-Unis) 503 24507270 
Structural Measurement Systems  1st Aid Software 
645 River Oak Pkwy 42 Radnor Road 
San Jose CA 95134 Boston Ma 02135 
Bravo Technology E Machines 
PO Box T Gilroy CA 95021 7945 S W Mohawk 
DataTaïor St Tualatin OR 97062 
1300 University Drive Suite 409  Symbiotic 
Fort Worth Texas 76107 4, rue Robert Schumann 
: 94220 Charenton 
souonine Tél. : 43 78 99 99 
Montpelier VT 05602 œ: 


Justlextr" à l’essai 


ustText suppose la disposition d’un Macintosh et d’une Laser Writer, 

imprimante dont bien des PME sont équipées. Ce logiciel de traitement 

de textes déroute par son aspect ‘réac’ pour un programme Macintosh : 
comme avec Apple Writer, vous n’avez pas à l'écran une idée de ce que sera le 
document imprimé, tout simplement parce que l’écran ne peut donner les pos- 
sibüités dela Laser Writer ou des composeuses Linotronic. D faut donc enrichir 
le texte de codes de contrôte parfois (!} simples à retenir. Le résuitat est une ex- 
ploitation totale de imprimante : dimension et espacement des caractères, in- 
terlignes, largeur de colonnes sont réglables par point (0.35 mm), et mème 
fractions de point. 


Toutes les fonctions classiques des traitements de textes sont disponibles 
(bulations, nmdentations), mais aussi les fantaisies des imprimeurs, ‘vitrine’ 
comme le premier J de ce texte, encadrer un texte ou cadrer à droite une fn de 
paragraphe... Les césures en fin de ligne sont automatiques en suivant un dic- 
tionnaire que vous enrichissez en fonction des besoins. 


Lorsque tesdits besoins dépassent JustText, vous pouvez modifier directement 
les ordres PostScript avant qu’ils ne soient envoyés à l’imprimante : les limites 
sont alors l'imagination de l’opérateur et les possibilités de la machine (voir 
Pom’s 24). 


Au chapitre regrets : Fannulation du “Coller” qui n’est que partielle, la limita- 
tion des textes à 32 Ko (pénible lorsqu'on incorpore une image dont on habille 
les contours), quelques petits ‘bugs’ tels la validation des menus, la déficulté 
d’üvsérer des RETURN’ au début de longs textes, les À avec accent grave qui 
s’impriment À... Le mode d’emploi par Pexemple est efficace, maisen anglais. 


D'un accès peu engageant, JustText est le programme à utiliser pour les 
travaux pointus. 
Distnibué par alpha systèmes à Grenoble 
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Bon de commande 


HAIFA sourte (cf. Pom's n° 5) 
DISK-MANAGER (cf. Pom's n° 11) à 450,00 F 
BASICIUM (cf. Pom's n° 13) à 150,00F 
E.P.E. 5.0 (cf. Pom's n° 23) à 200,00 F 
Échange E.P.E. 5.0 (cf. Pom's n° 23) 
PASCALE (cf. Pom's n° 15) 
(cf. Pom's n° 18) 
(cf. Pom's n° 19) à 80,00 F 
(cf. Pom's n° 21) à 150,00 F 
(cf. Pom's n° 25) 
(cf. Pom's n° 26) 


Recueils 


N°1, recueil des revues 1 à 4 à 140,00 F 
Disquettes d'accompaguement 1 à 4 à 200,00 F 
N°2, recueil des revues 5 à 8 à 140,00 F 
Disquettes d'accompagwement S à 8 à 200,00 F 
N°3, recueil des revues 9 à 12 à 140,00F 
Disquettes d'accompagnement 9 à 12 


Revues, disquettes 
Revues 4 7 8 35,00 F 


Revues 1011 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 40,00 F 
Revues 27 28 45,00 F 
Disquettes Apple IL //e, //c 


172 3. 4 S 6 7 8 9% 10,11 12,13 14 15 60,00 F 
16 17 18 19 20 21 22 23 24 25 26 27 28 


Disquettes Macintosh 
14/15/16 groupées 
17 18 19 20 21 22 23 24 25 2627 28 
Ma ‘À’ 
MacAstices 
“Raccourci” 


Abonnements Pour 6 numéros à partir du n° 


Abonnement à la revue seule à 225,00 F 
Abonnement revue + disquettes Apple IL, //e, #/c à 525,00 F 
Abonnement revue + disquettes Macintosh à 625,00F 


Reliures toilées 
Pour 6 numéros, un an de Pom’s 


Total TTC : 


Supplément avion hors CEE : ajoutez 15,00F par numéro et/ou disquette 


Envoyez ce bon et votre règlement à : EDITIONS ME V, 614 rue des Chantiers 78000 VERSAILLES 


Nom : 


Adresse : 


Imprimerie Rosay, 94300 Vincennes. Imprimé en France. Dépôt légal : Janvier 1987. N° 4122 





74 Pom's n° 28 








Bon de commande ‘Communication’ 


Pom’s s'est intéressé ces derniers numéros à l'ouverture de votre ordinateur sur le 
monde extérieur. 


Pom’s26: Apple // Carte SuperSérie & CP/M. Programme permettant de 
configurer simplement la SSC sous CP/M 


Pom’s27: Apple //, Carte SuperSérie & CP/M 2ème partie. La communication 
selon le protocole XMODEM. 
Apple // & Minitel. Programme d'enregistrement et de restitution à 
loisir des écrans Minitel (par l'interface Série). 
Macintosh & Minitel. Programme d'enregistrement et de restitution 
à loisir des écrans Minitel. 


InterPom’s Apple // et 
Pom’s 28: Inter Pom’s Macintosh pour transmettre des fichiers par Minitel. 


Je désire recevoir : 





Revue 26 27 28 à 400 En... 
Disquette Apple // 26 27 28 à GOOD …..omeure 
Disquette Macintosh 26 27 28 à 80/00 er. 
»»»» Câble de liaison 
Apple ]E+, //e, /le+ à GAS 
Apple //c à 2250008007... 
Macintosh 128, 512 A0225 00 7... 
Macintosh Plus DS 22800 nimes 
Je désire m'abonner : 
À compter du numéro 
{6 rurréros, Un an, Possibilité d'abonnement rétroactif) 
Revues seules à 225,00  sssssssssssss 
Revues et disquette Apple fl à 62900  séciases 
Revues et disquettes Macintosh à 625,00  ..….........…. 
J TotaiTTE 


Supplément avion hors CEE : 15,00 F par numéro et/ou disquette 


Envoyez ce bon et votre règlement à : Éditions MEV, 64, rue des Chantiers 78000 Versailles 


Nom : 


Adresse : 



















GUIDEMILRO 





NOUVEAUX LANGAGES 





MOLIERE 






À LUALANIS RIRES 


RS 


RAA LS 


rene 


RENAN 


Ls 









|. METHODE 


JIN 1987 
PÉQAnT 








3 J 


NS. 


A Ja 
recherche 
du 


ET SES FICHIERS 


AR TS SSSR 








= = LRTTTC 

2 temps perdu = Discou 

5 = de là 
méthode 


L'ORDINATEUR et L'EN TREPRISI 


MACINTOSH EFFICACE 







LÉ 


L'ORDINATEUR INDIVIDUEL N" 88H; HORSSERIÉ 
L'ORDINATEUR INDIVIDUEL N° 94 JUILLET/ AOÛT 1987 








BULLETIN D'ABONNEMENT : à soumner 6 L'ORDINATEUR INDIVIDURL 


5, ploce du Colonel-Fobien -7 5491 Paris Cedex10 





Oui, je m'abonne pour 1 an {11 numéros): 220 F au lieu de 2758 
prix total au numéro. 






Je joins mon règlement par chèque à l'ordre de L'ORDINATEUR 
INDIVIDUEL 










Prénom - 





NOM 








Adresse = = 


: Code postall 4 à 1 Li 













Vi 
Ville 


2% Fo ES. 





Date Signature 









À noter : Une photocopie de ce bulletin tient lieu de facture (prix indiqué TTC, TVA 4 incl {OMS 


Pom's 


W& F Paris 






